diff options
| author | Masatake YAMATO <jet@gyve.org> | 2004-04-27 21:00:31 +0000 |
|---|---|---|
| committer | Masatake YAMATO <jet@gyve.org> | 2004-04-27 21:00:31 +0000 |
| commit | f24485f172efcd20394f6d5040305fe02c38e043 (patch) | |
| tree | 39effd1f3527d173dda01551df7a666ec35615c8 /lisp/subr.el | |
| parent | e23390fa015f523cba25fa4d952d7bee8c6c533f (diff) | |
| download | emacs-f24485f172efcd20394f6d5040305fe02c38e043.tar.gz | |
* subr.el (remove-overlays): Make arguments optional.
* wid-edit.el (widget-specify-button): Put evaporate to the
overlay for sample.
(widget-specify-sample): Put evaporate to the overlay for sample.
(widget-specify-doc): Put evaporate to the overlay for documentation.
* etc/NEWS: Write about remove-overlays's arguments.
* man/widget.texi: Add remove-overlays to the example.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 516b0fc781a..a9acc15606d 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1528,9 +1528,13 @@ If MESSAGE is nil, instructions to type EXIT-CHAR are displayed there." (overlay-put o1 (pop props) (pop props))) o1)) -(defun remove-overlays (beg end name val) +(defun remove-overlays (&optional beg end name val) "Clear BEG and END of overlays whose property NAME has value VAL. -Overlays might be moved and or split." +Overlays might be moved and or split. +If BEG is nil, `(point-min)' is used. If END is nil, `(point-max)' +is used." + (unless beg (setq beg (point-min))) + (unless end (setq end (point-max))) (if (< end beg) (setq beg (prog1 end (setq end beg)))) (save-excursion |