diff options
Diffstat (limited to 'lisp/ibuffer.el')
| -rw-r--r-- | lisp/ibuffer.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index c6e5e471a36..71bf1d6dcc2 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el | |||
| @@ -1319,13 +1319,14 @@ a new window in the current frame, splitting vertically." | |||
| 1319 | (cl-assert (derived-mode-p 'ibuffer-mode))) | 1319 | (cl-assert (derived-mode-p 'ibuffer-mode))) |
| 1320 | 1320 | ||
| 1321 | (defun ibuffer-buffer-file-name () | 1321 | (defun ibuffer-buffer-file-name () |
| 1322 | (or buffer-file-name | 1322 | (cond |
| 1323 | (let ((dirname (or (and (boundp 'dired-directory) | 1323 | ((buffer-file-name)) |
| 1324 | (if (stringp dired-directory) | 1324 | ((bound-and-true-p list-buffers-directory)) |
| 1325 | dired-directory | 1325 | ((let ((dirname (and (boundp 'dired-directory) |
| 1326 | (car dired-directory))) | 1326 | (if (stringp dired-directory) |
| 1327 | (bound-and-true-p list-buffers-directory)))) | 1327 | dired-directory |
| 1328 | (and dirname (expand-file-name dirname))))) | 1328 | (car dired-directory))))) |
| 1329 | (and dirname (expand-file-name dirname)))))) | ||
| 1329 | 1330 | ||
| 1330 | (define-ibuffer-op ibuffer-do-save () | 1331 | (define-ibuffer-op ibuffer-do-save () |
| 1331 | "Save marked buffers as with `save-buffer'." | 1332 | "Save marked buffers as with `save-buffer'." |