From 1a4280fb4706f2b5d4f206585d88fcc924fb14a6 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Fri, 12 Nov 1999 12:43:32 +0000 Subject: [PATCH] (list-buffers-noselect): Use abbreviate-file-name to display file names. --- lisp/ChangeLog | 5 +++++ lisp/buff-menu.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c5d7760ff94..5e2814ca08c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +1999-11-12 Gerd Moellmann + + * buff-menu.el (list-buffers-noselect): Use abbreviate-file-name + to display file names. + 1999-11-11 Gerd Moellmann * 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 8861ccf6d33..18b46dc8ece 100644 --- 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) -- 2.39.5