Mercurial > hg > xemacs-beta

diff lisp/utils/text-props.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 538048ae2ab8
children
line wrap: on
line diff
--- a/lisp/utils/text-props.el	Mon Aug 13 09:38:27 2007 +0200
+++ b/lisp/utils/text-props.el	Mon Aug 13 09:39:39 2007 +0200
@@ -310,11 +310,15 @@
 The optional fourth argument, BUFFER-OR-STRING,
 is the string or buffer containing the text."
   (map-extents #'(lambda (extent ignored)
+		   ;; #### dmoore - shouldn't this use
+		   ;; (extent-start-position extent)
+		   ;; (extent-end-position extent)
 		   (remove-text-properties start end
 					   (list (extent-property extent
 								  'text-prop)
 						 nil)
-					   buffer-or-string))
+					   buffer-or-string)
+		   nil)
 	       buffer-or-string start end nil nil 'text-prop)
   (add-text-properties start end props buffer-or-string))