From ab530f103fa791506393b45eb9ed6b3587ac1836 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Sat, 5 Sep 2009 09:43:51 +0000 Subject: Tidy whitespace --- lib/span.el | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'lib/span.el') diff --git a/lib/span.el b/lib/span.el index 5f87e015..aa1cf9a6 100644 --- a/lib/span.el +++ b/lib/span.el @@ -8,9 +8,9 @@ ;; $Id$ ;; ;;; Commentary: -;; +;; ;; Spans are our abstraction of extents/overlays. Nowadays -;; we implement them directly with overlays. +;; we implement them directly with overlays. ;; ;; In future this module should be used to implement the abstraction ;; for script buffers (only) more directly. @@ -56,7 +56,7 @@ Optional argument FUN is used in place of `span-give-warning'." (unless fun (setq fun 'span-give-warning)) (lexical-let ((fun fun)) (let ((funs (list (lambda (span afterp beg end &rest args) - (if (not afterp) (funcall fun beg end)))))) + (if (not afterp) (funcall fun beg end)))))) (span-set-property span 'modification-hooks funs) (span-set-property span 'insert-in-front-hooks funs)))) @@ -116,13 +116,13 @@ A span is before PT if it begins before the character before PT." ;; "Get the smallest". I have no idea what that means, so I just do ;; something somewhat random but vaguely meaningful. -Stef (car (last (sort ols 'span-lt))))) - + (defun prev-span (span prop) "Return span before SPAN with property PROP." (span-at-before (span-start span) prop)) ; overlays are [start, end) - + (defun next-span (span prop) "Return span after SPAN with property PROP." ;; Presuming the span-extents.el is the reference, its code does the same @@ -202,7 +202,7 @@ A span is before PT if it begins before the character before PT." ;; ;; Generic functions built on low-level concrete ones. -;; +;; (defsubst span-delete-spans (start end prop) "Delete all spans between START and END with property PROP set." @@ -211,7 +211,7 @@ A span is before PT if it begins before the character before PT." (defsubst span-property-safe (span name) "Like span-property, but return nil if SPAN is nil." (and span (span-property span name))) - + (defsubst span-set-start (span value) "Set the start point of SPAN to VALUE." (span-set-endpoints span value (span-end span))) -- cgit v1.2.3