--- a/lisp/buff-menu.el	Mon Aug 13 11:33:40 2007 +0200
+++ b/lisp/buff-menu.el	Mon Aug 13 11:35:02 2007 +0200
@@ -356,6 +356,8 @@
 
 
 
+(eval-when-compile (autoload 'visit-tags-table "etags"))
+
 (defun Buffer-menu-visit-tags-table ()
   "Visit the tags table in the buffer on this line.  See `visit-tags-table'."
   (interactive)
@@ -634,6 +636,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