Fixes: debbugs:12108

* buff-menu.el (list-buffers-noselect): Use prefix-numeric-value.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7e55c2a1868294b2d83216534939bb338c587418..5bee28ab49335f6b250117c283ce6e47e679511e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,10 +1,15 @@
+2012-07-31  Andreas Schwab  <schwab@linux-m68k.org>
+
+       * buff-menu.el (list-buffers-noselect): Use prefix-numeric-value.
+       (Bug#12108)
+
 2012-07-31  Jay Belanger  <jay.p.belanger@gmail.com>
 
        * calc-mode.el (calc-basic-simplification-mode): Rename from
        `calc-limited-simplification-mode'.
        (calc-alg-simplification-mode): New function.
        (calc-set-simplify-mode):  Adjust message.
-       
+
        * calc.el (calc-set-mode-line): Adjust mode line display for
        basic simplification mode.
 
@@ -3862,7 +3867,7 @@
        * cus-edit.el (custom-variable-documentation): Simplify with format.
 
 2012-05-01  Aaron S. Hawley  <aaron.s.hawley@gmail.com>
-            Stefan Monnier  <monnier@iro.umontreal.ca>
+           Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * simple.el (suggest-key-bindings, execute-extended-command):
        Move from keyboard.c.
@@ -6190,7 +6195,7 @@
        (save-place-to-alist): Use it.
 
 2012-02-17  Lawrence Mitchell  <wence@gmx.li>
-            Stefan Monnier  <monnier@iro.umontreal.ca>
+           Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * newcomment.el (uncomment-region-default): Don't leave extra space
        when an arg is provided (bug#8150).
@@ -14645,7 +14650,7 @@
        * textmodes/reftex-dcr.el (reftex-view-crossref): at at -> at a
 
 2011-05-10  Glenn Morris  <rgm@gnu.org>
-            Stefan Monnier  <monnier@iro.umontreal.ca>
+           Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * files.el (hack-one-local-variable-eval-safep):
        Consider "eval: (foo-mode)" to be safe.  (Bug#8613)

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index 6a65749e0c521c003005077d23214567e543e418..e9288d528ecbb90a6fb82b99bca3b40ae8dd6e47 100644 (file)
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -564,7 +564,8 @@ means list those buffers and no others."
        (buffer (get-buffer-create "*Buffer List*")))
     (with-current-buffer buffer
       (Buffer-menu-mode)
-      (setq Buffer-menu-files-only (and files-only (>= files-only 0)))
+      (setq Buffer-menu-files-only
+           (and files-only (>= (prefix-numeric-value files-only) 0)))
       (list-buffers--refresh buffer-list old-buffer)
       (tabulated-list-print))
     buffer))