(list-buffers-noselect): Use abbreviate-file-name

to display file names.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c5d7760..5e2814c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+1999-11-12  Gerd Moellmann  <gerd@gnu.org>
+
+       * buff-menu.el (list-buffers-noselect): Use abbreviate-file-name
+       to display file names.
+
 1999-11-11  Gerd Moellmann  <gerd@gnu.org>
 
        * mwheel.el: Fix copyright notice, don't require 'cl at run time.

diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el
index 8861ccf..18b46dc 100644 (file)
--- a/lisp/buff-menu.el
+++ b/lisp/buff-menu.el
@@ -566,7 +566,7 @@ The R column contains a % for buffers that are read-only."
              (indent-to 40 1)
              (or file (setq file this-buffer-directory))
              (if file
-                 (princ file))
+                 (princ (abbreviate-file-name file)))
              (princ "\n"))))
          (setq bl (cdr bl))))
       (Buffer-menu-mode)