diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-10 14:34:22 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-10 14:34:22 +1100 |
| commit | f962e3cde2710f1514020f1ef35f214f7aa87967 (patch) | |
| tree | 6eaf9cbd4cf1d687ceff1a1d8a1cdc59606da9af /lisp/gnus/gnus-util.el | |
| parent | a3c2634f90ae744ae53c408257c416a9645cf158 (diff) | |
| download | emacs-f962e3cde2710f1514020f1ef35f214f7aa87967.tar.gz | |
Drop Gnus compat functions
* lisp/gnus/gnus-ems.el (gnus-mule-max-width-function): Remove.
* lisp/gnus/gnus-util.el (gnus-kill-all-overlays): Move here.
* lisp/gnus/gnus.el (gnus-mode-line-modified): Remove.
Diffstat (limited to 'lisp/gnus/gnus-util.el')
| -rw-r--r-- | lisp/gnus/gnus-util.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index 33d96bd20eb..99565a27496 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el @@ -2069,6 +2069,14 @@ lists of strings." (setq start end end nil)))))) +(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))))) + (provide 'gnus-util) ;;; gnus-util.el ends here |