From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Sun, 28 Jul 2019 15:31:56 +0000 (+0200)
Subject: Abbreviate directory names the same way as file names in C-x C-b
X-Git-Tag: emacs-27.0.90~1817^2~46
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0c5f436dc034b7f4d49f1c6b18009c42737a47ab;p=emacs.git

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

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