Mercurial > emacs
changeset 32921:86023b6d3cad
2000-10-08 10:59:13 ShengHuo ZHU <zsh@cs.rochester.edu>
* gnus-util.el (gnus-kill-all-overlays): Move out.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Thu, 26 Oct 2000 17:41:09 +0000 |
| parents | 5b203c66fa7b |
| children | 6f64acee8b6c |
| files | lisp/gnus/gnus-util.el |
| diffstat | 1 files changed, 0 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/gnus-util.el Thu Oct 26 17:36:05 2000 +0000 +++ b/lisp/gnus/gnus-util.el Thu Oct 26 17:41:09 2000 +0000 @@ -451,14 +451,6 @@ (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 ()