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).
This commit is contained in:
Lars Ingebrigtsen 2019-07-28 17:31:56 +02:00
parent e700fff256
commit 0c5f436dc0

View file

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