Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
47:11c6df210d7f 48:56c54cf7c5b6
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.