mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

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

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
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.

2
lisp/buff-menu.el
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)