From 0c5f436dc034b7f4d49f1c6b18009c42737a47ab Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sun, 28 Jul 2019 17:31:56 +0200 Subject: [PATCH] Abbreviate directory names the same way as file names in C-x C-b * lisp/buff-menu.el (Buffer-menu--pretty-file-name): Abbreviate directory file names, too (bug#23355). --- lisp/buff-menu.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/buff-menu.el b/lisp/buff-menu.el index 6406a59c6aa..3cea186e6e3 100644 --- a/lisp/buff-menu.el +++ b/lisp/buff-menu.el @@ -703,7 +703,8 @@ means list those buffers and no others." (defun Buffer-menu--pretty-file-name (file) (cond (file (abbreviate-file-name file)) - ((bound-and-true-p list-buffers-directory)) + ((bound-and-true-p list-buffers-directory) + (abbreviate-file-name list-buffers-directory)) (t ""))) ;;; buff-menu.el ends here -- 2.39.2