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

to display file names.
This commit is contained in:
Gerd Moellmann 1999-11-12 12:43:32 +00:00
parent d35fce81ae
commit 1a4280fb47
2 changed files with 6 additions and 1 deletions

View file

@ -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.

View file

@ -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)