This commit was generated by cvs2svn to compensate for changes in r1479,

[chise/xemacs-chise.git.1] / lisp / buff-menu.el

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index b93feb4..3a6df7b 100644 (file)
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -634,6 +634,11 @@ The R column contains a % for buffers that are read-only."
                             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