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 6406a59c6aaf16c30d5c76c9dd8e86405201bd62..3cea186e6e365eaa00896472ae35c8e0d5db6cfb 100644 (file)
--- 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