Mercurial > emacs

comparison lisp/subr.el @ 55232:32822ce3259d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(remove-overlays): Docstring change.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 29 Apr 2004 18:42:24 +0000
parents 4c64ee838f41
children 3b27c2f86c7a
comparison
equal deleted inserted replaced
55231:7fc34677dcb8 55232:32822ce3259d
1529 o1)) 1529 o1))
1530 1530
1531 (defun remove-overlays (&optional beg end name val) 1531 (defun remove-overlays (&optional beg end name val)
1532 "Clear BEG and END of overlays whose property NAME has value VAL. 1532 "Clear BEG and END of overlays whose property NAME has value VAL.
1533 Overlays might be moved and or split. 1533 Overlays might be moved and or split.
1534 If BEG is nil, `(point-min)' is used. If END is nil, `(point-max)' 1534 BEG and END default to the beginning resp. end of buffer."
1535 is used."
1536 (unless beg (setq beg (point-min))) 1535 (unless beg (setq beg (point-min)))
1537 (unless end (setq end (point-max))) 1536 (unless end (setq end (point-max)))
1538 (if (< end beg) 1537 (if (< end beg)
1539 (setq beg (prog1 end (setq end beg)))) 1538 (setq beg (prog1 end (setq end beg))))
1540 (save-excursion 1539 (save-excursion