Mercurial > hg > xemacs-beta

comparison lisp/gnus/gnus-util.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents fe104dbd9147
children 7d55a9ba150c
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
522 (file-name-nondirectory file)))) 522 (file-name-nondirectory file))))
523 (copy-file file to)) 523 (copy-file file to))
524 524
525 (defun gnus-kill-all-overlays () 525 (defun gnus-kill-all-overlays ()
526 "Delete all overlays in the current buffer." 526 "Delete all overlays in the current buffer."
527 (when (fboundp 'overlay-lists) 527 (unless gnus-xemacs
528 (let* ((overlayss (overlay-lists)) 528 (let* ((overlayss (overlay-lists))
529 (buffer-read-only nil) 529 (buffer-read-only nil)
530 (overlays (nconc (car overlayss) (cdr overlayss)))) 530 (overlays (nconc (car overlayss) (cdr overlayss))))
531 (while overlays 531 (while overlays
532 (delete-overlay (pop overlays)))))) 532 (delete-overlay (pop overlays))))))