From 6a3c8d9bd0db3a4db6a01a0f587f309da568a943 Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Tue, 15 Jan 2008 13:07:11 +0000 Subject: Many compatibility updates, bug fixes, rearrangements for compilation. --- lib/span.el | 16 +++++++--------- 1 file changed, 7 insertions(+), 9 deletions(-) (limited to 'lib/span.el') diff --git a/lib/span.el b/lib/span.el index 8e2c05f4..6fd8371d 100644 --- a/lib/span.el +++ b/lib/span.el @@ -5,12 +5,10 @@ ;; License: GPL (GNU GENERAL PUBLIC LICENSE) ;; ;; $Id$ - -;; FIXME: NAMESPACE!!!!!!! - ;; ;; Spans are our abstraction of extents/overlays. ;; + (eval-and-compile (cond ((string-match "XEmacs" emacs-version) (require 'span-extent)) @@ -21,21 +19,21 @@ ;; Generic functions built on low-level concrete ones. ;; -(defsubst delete-spans (start end prop) +(defsubst span-delete-spans (start end prop) "Delete all spans between START and END with property PROP set." - (mapcar-spans 'delete-span start end prop)) + (span-mapcar-spans 'span-delete start end prop)) (defsubst span-property-safe (span name) "Like span-property, but return nil if SPAN is nil." (and span (span-property span name))) -(defsubst set-span-start (span value) +(defsubst span-set-start (span value) "Set the start point of SPAN to VALUE." - (set-span-endpoints span value (span-end span))) + (span-set-endpoints span value (span-end span))) -(defsubst set-span-end (span value) +(defsubst span-set-end (span value) "Set the end point of SPAN to VALUE." - (set-span-endpoints span (span-start span) value)) + (span-set-endpoints span (span-start span) value)) (provide 'span) ;; span.el ends here. -- cgit v1.2.3