Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-util.el @ 151:59463afc5666 r20-3b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b2
author cvs
date Mon, 13 Aug 2007 09:37:19 +0200
parents 7d55a9ba150c
children 43dd3413c7c7
comparison
equal deleted inserted replaced
150:8ebb1c0f0f6f 151:59463afc5666
526 (defun gnus-kill-all-overlays () 526 (defun gnus-kill-all-overlays ()
527 "Delete all overlays in the current buffer." 527 "Delete all overlays in the current buffer."
528 (unless gnus-xemacs 528 (unless gnus-xemacs
529 (let* ((overlayss (overlay-lists)) 529 (let* ((overlayss (overlay-lists))
530 (buffer-read-only nil) 530 (buffer-read-only nil)
531 (overlays (nconc (car overlayss) (cdr overlayss)))) 531 (overlays (delq nil (nconc (car overlayss) (cdr overlayss)))))
532 (while overlays 532 (while overlays
533 (delete-overlay (pop overlays)))))) 533 (delete-overlay (pop overlays))))))
534 534
535 (defvar gnus-work-buffer " *gnus work*") 535 (defvar gnus-work-buffer " *gnus work*")
536 536