Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
308 Completely replace properties of text from START to END. 308 Completely replace properties of text from START to END.
309 The third argument PROPS is the new property list. 309 The third argument PROPS is the new property list.
310 The optional fourth argument, BUFFER-OR-STRING, 310 The optional fourth argument, BUFFER-OR-STRING,
311 is the string or buffer containing the text." 311 is the string or buffer containing the text."
312 (map-extents #'(lambda (extent ignored) 312 (map-extents #'(lambda (extent ignored)
313 ;; #### dmoore - shouldn't this use
314 ;; (extent-start-position extent)
315 ;; (extent-end-position extent)
313 (remove-text-properties start end 316 (remove-text-properties start end
314 (list (extent-property extent 317 (list (extent-property extent
315 'text-prop) 318 'text-prop)
316 nil) 319 nil)
317 buffer-or-string)) 320 buffer-or-string)
321 nil)
318 buffer-or-string start end nil nil 'text-prop) 322 buffer-or-string start end nil nil 'text-prop)
319 (add-text-properties start end props buffer-or-string)) 323 (add-text-properties start end props buffer-or-string))
320 324
321 325
322 ;;; The following functions can probably stay in lisp, since they're so simple. 326 ;;; The following functions can probably stay in lisp, since they're so simple.