diff options
| author | Dave Love <[email protected]> | 2000-10-26 17:42:44 +0000 |
|---|---|---|
| committer | Dave Love <[email protected]> | 2000-10-26 17:42:44 +0000 |
| commit | fc7bf2631ff7632bbb8d383196898d85589a71a3 (patch) | |
| tree | b0e83c4121c5ba949abae94dfd1b0375cf54bd34 /lisp/gnus/gnus-util.el | |
| parent | 06c43cdf99ba34b92fe113e8bda03d73a2bfa905 (diff) | |
2000-10-08 10:59:13 ShengHuo ZHU <[email protected]>
* gnus-util.el (gnus-kill-all-overlays): Move out.
Diffstat (limited to 'lisp/gnus/gnus-util.el')
| -rw-r--r-- | lisp/gnus/gnus-util.el | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 72e4d031e1..df776a7c1f 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -451,14 +451,6 @@ If N, return the Nth ancestor instead." (file-name-nondirectory file)))) (copy-file file to)) -(defun gnus-kill-all-overlays () - "Delete all overlays in the current buffer." - (let* ((overlayss (overlay-lists)) - (buffer-read-only nil) - (overlays (delq nil (nconc (car overlayss) (cdr overlayss))))) - (while overlays - (delete-overlay (pop overlays))))) - (defvar gnus-work-buffer " *gnus work*") (defun gnus-set-work-buffer () |