[Emacs-diffs] emacs/lisp ChangeLog bs.el

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      09/09/25 04:46:36

Modified files:
        lisp           : ChangeLog bs.el 

Log message:
        * bs.el (bs--get-file-name): Use `list-buffers-directory'
          when available, instead of hardcoding mode names.  Doc fix.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16261&r2=1.16262
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/bs.el?cvsroot=emacs&r1=1.50&r2=1.51

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16261
retrieving revision 1.16262
diff -u -b -r1.16261 -r1.16262
--- ChangeLog   25 Sep 2009 04:35:14 -0000      1.16261
+++ ChangeLog   25 Sep 2009 04:46:34 -0000      1.16262
@@ -1,5 +1,8 @@
 2009-09-25  Juanma Barranquero  <address@hidden>
 
+       * bs.el (bs--get-file-name): Use `list-buffers-directory'
+       when available, instead of hardcoding mode names.  Doc fix.
+
        * menu-bar.el (list-buffers-directory): Add docstring.
        Make automatically buffer-local.
 

Index: bs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/bs.el,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -b -r1.50 -r1.51
--- bs.el       22 Aug 2009 19:29:24 -0000      1.50
+++ bs.el       25 Sep 2009 04:46:36 -0000      1.51
@@ -1327,13 +1327,12 @@
 (defun bs--get-file-name (start-buffer all-buffers)
   "Return string for column 'File' in Buffer Selection Menu.
 This is the variable `buffer-file-name' of current buffer.
-If current mode is `dired-mode' or `shell-mode' it returns the
-default directory.
+If not visiting a file, `list-buffers-directory' is returned instead.
 START-BUFFER is the buffer where we started buffer selection.
 ALL-BUFFERS is the list of buffers appearing in Buffer Selection Menu."
-  (propertize (if (member major-mode '(shell-mode dired-mode))
-                  default-directory
-                (or buffer-file-name ""))
+  (propertize (or buffer-file-name
+                 (bound-and-true-p list-buffers-directory)
+                 "")
               'mouse-face 'highlight
               'help-echo "mouse-2: select this buffer, mouse-3: select in 
other frame"))