Mercurial > hg > xemacs-beta

diff lisp/buff-menu.el @ 404:2f8bb876ab1d r21-2-32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-32
author cvs
date Mon, 13 Aug 2007 11:16:07 +0200
parents 558f606b08ae
children de805c49cfc1
line wrap: on
line diff
--- a/lisp/buff-menu.el	Mon Aug 13 11:15:00 2007 +0200
+++ b/lisp/buff-menu.el	Mon Aug 13 11:16:07 2007 +0200
@@ -634,6 +634,11 @@
 			     files-only))
     buffer))
 
+(defun buffers-menu-omit-invisible-buffers (buf)
+  "For use as a value of `buffers-menu-omit-function'.
+Omits normally invisible buffers (those whose name begins with a space)."
+  (not (null (string-match "\\` " (buffer-name buf)))))
+
 (provide 'buff-menu)
 
 ;;; buff-menu.el ends here