From xemacs-m  Thu Jun 26 10:48:55 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id KAA15958
	for <xemacs-beta@xemacs.org>; Thu, 26 Jun 1997 10:48:50 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id RAA05229; Thu, 26 Jun 1997 17:48:49 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: [PATCH] mapping overlays
X-Attribution: Hrv
X-Face: Mie8:rOV<\c/~z{s.X4A{!?vY7{drJ([U]0O=W/<W*SMo/Mv:58:*_y~ki>xDi&N7XG
        KV^$k0m3Oe/)'e%3=$PCR&3ITUXH,cK>]bci&<qQ>Ff%x_>1`T(+M2Gg/fgndU%k*ft
        [(7._6e0n-V%|%'[c|q:;}td$#INd+;?!-V=c8Pqf}3J
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 26 Jun 1997 17:48:49 +0200
Message-ID: <kigiuz1e55q.fsf@jagor.srce.hr>
Lines: 49
X-Mailer: Gnus v5.4.59/XEmacs 20.3(beta9) - "Sofia"

This patch makes the various overlay functions behave closer to what
FSFmacs does:

--- lisp/prim/overlay.el.orig	Thu Jun 26 17:45:52 1997
+++ lisp/prim/overlay.el	Thu Jun 26 17:47:39 1997
@@ -151,7 +151,8 @@
 and also contained within the specified region.
 Empty overlays are included in the result if they are located at BEG
 or between BEG and END."
-  (mapcar-extents #'identity nil nil beg end nil 'overlay))
+  (mapcar-extents #'identity nil nil beg end
+		  'all-extents-closed-open 'overlay))
 
 (defun next-overlay-change (pos)
   "Return the next position after POS where an overlay starts or ends.
@@ -166,7 +167,7 @@
 			   (> tmp pos)))
 	      (setq next tmp))
        nil)
-     nil pos nil nil nil 'overlay)
+     nil pos nil nil 'all-extents-closed-open 'overlay)
     next))
 
 (defun previous-overlay-change (pos)
@@ -182,7 +183,7 @@
 		      (< tmp pos)))
 	 (setq prev tmp))
        nil)
-     nil nil pos nil nil 'overlay)
+     nil nil pos nil 'all-extents-closed-open 'overlay)
     prev))
 
 (defun overlay-lists ()
@@ -201,7 +202,7 @@
 		       (push overlay before)
 		     (push overlay after))
 		   nil)
-		 nil nil nil nil nil 'overlay)
+		 nil nil nil nil 'all-extents-closed-open 'overlay)
     (cons (nreverse before) (nreverse after))))
 
 (defun overlay-recenter (pos)


-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
`VI' - An editor used by those heretics that don't subscribe to
       the Emacs religion.

