Fix Bug#24962

* lisp/buff-menu.el (list-buffers--refresh):
List buffers with name starting with " " if they visit a file.
* test/lisp/buff-menu-tests.el (buff-menu-24962):
Update test result as pass.

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index e2aa2da0388926f6db55c1b3638a601f8f8765e7..dcf5b0f3888f99d9ead0c48ffc06760e4251ffdf 100644 (file)
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -671,7 +671,8 @@ means list those buffers and no others."
               (file buffer-file-name))
          (when (and (buffer-live-p buffer)
                     (or buffer-list
-                        (and (not (string= (substring name 0 1) " "))
+                        (and (or (not (string= (substring name 0 1) " "))
+                                  file)
                              (not (eq buffer buffer-menu-buffer))
                              (or file show-non-file))))
            (push (list buffer

diff --git a/test/lisp/buff-menu-tests.el b/test/lisp/buff-menu-tests.el
index c55dc8128bcb3e44ef34c7532cf47c925b8906cf..133a4f67a9cb41d08cfaa8e914cb810ab44e4a39 100644 (file)
--- a/test/lisp/buff-menu-tests.el
+++ b/test/lisp/buff-menu-tests.el
@@ -27,7 +27,6 @@
 
 (ert-deftest buff-menu-24962 ()
   "Test for http://debbugs.gnu.org/24962 ."
-  :expected-result :failed
   (let ((file (expand-file-name "foo" temporary-file-directory))
         buf)
     (unwind-protect