diff options
| author | Lars Ingebrigtsen | 2019-07-28 17:31:56 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-07-28 22:14:36 +0200 |
| commit | 0c5f436dc034b7f4d49f1c6b18009c42737a47ab (patch) | |
| tree | 636b579c7c50995ae80cf0a2465c6d431702289c | |
| parent | e700fff256fc6c59dc8ab0063b7626486f312e0f (diff) | |
| download | emacs-0c5f436dc034b7f4d49f1c6b18009c42737a47ab.tar.gz emacs-0c5f436dc034b7f4d49f1c6b18009c42737a47ab.zip | |
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).
| -rw-r--r-- | lisp/buff-menu.el | 3 |
1 files changed, 2 insertions, 1 deletions
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." | |||
| 703 | (defun Buffer-menu--pretty-file-name (file) | 703 | (defun Buffer-menu--pretty-file-name (file) |
| 704 | (cond (file | 704 | (cond (file |
| 705 | (abbreviate-file-name file)) | 705 | (abbreviate-file-name file)) |
| 706 | ((bound-and-true-p list-buffers-directory)) | 706 | ((bound-and-true-p list-buffers-directory) |
| 707 | (abbreviate-file-name list-buffers-directory)) | ||
| 707 | (t ""))) | 708 | (t ""))) |
| 708 | 709 | ||
| 709 | ;;; buff-menu.el ends here | 710 | ;;; buff-menu.el ends here |