Mercurial > hg > xemacs-beta

diff lisp/utils/text-props.el @ 48:56c54cf7c5b6 r19-16b90

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16b90
author cvs
date Mon, 13 Aug 2007 08:56:04 +0200
parents bcdc7deadc19
children 131b0175ea99
line wrap: on
line diff
--- a/lisp/utils/text-props.el	Mon Aug 13 08:55:32 2007 +0200
+++ b/lisp/utils/text-props.el	Mon Aug 13 08:56:04 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))