diff options
| author | John Paul Wallington | 2008-08-10 03:42:43 +0000 |
|---|---|---|
| committer | John Paul Wallington | 2008-08-10 03:42:43 +0000 |
| commit | 9d458edce92bab856eab51af8a8499e1f3f86c3f (patch) | |
| tree | cabcfe593231ba0651be9a397f96b1220e7ea1f9 | |
| parent | a43a8a2e815da1aa665e67b229d438259890fc32 (diff) | |
| download | emacs-9d458edce92bab856eab51af8a8499e1f3f86c3f.tar.gz emacs-9d458edce92bab856eab51af8a8499e1f3f86c3f.zip | |
(ibuffer-buffer-file-name): Return nil rather than empty string when
no filename.
(define-ibuffer-column filename): Accomodate that change.
| -rw-r--r-- | lisp/ibuffer.el | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index 8626e692162..539f88ec3c1 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el | |||
| @@ -1245,8 +1245,7 @@ a new window in the current frame, splitting vertically." | |||
| 1245 | dired-directory | 1245 | dired-directory |
| 1246 | (car dired-directory))) | 1246 | (car dired-directory))) |
| 1247 | (bound-and-true-p list-buffers-directory)))) | 1247 | (bound-and-true-p list-buffers-directory)))) |
| 1248 | (and dirname (expand-file-name dirname))) | 1248 | (and dirname (expand-file-name dirname))))) |
| 1249 | "")) | ||
| 1250 | 1249 | ||
| 1251 | (define-ibuffer-op ibuffer-do-save () | 1250 | (define-ibuffer-op ibuffer-do-save () |
| 1252 | "Save marked buffers as with `save-buffer'." | 1251 | "Save marked buffers as with `save-buffer'." |
| @@ -1768,7 +1767,7 @@ If point is on a group name, this function operates on that group." | |||
| 1768 | (t (format "%d files" total)))))) | 1767 | (t (format "%d files" total)))))) |
| 1769 | (let ((directory-abbrev-alist ibuffer-directory-abbrev-alist)) | 1768 | (let ((directory-abbrev-alist ibuffer-directory-abbrev-alist)) |
| 1770 | (abbreviate-file-name | 1769 | (abbreviate-file-name |
| 1771 | (ibuffer-buffer-file-name)))) | 1770 | (or (ibuffer-buffer-file-name) "")))) |
| 1772 | 1771 | ||
| 1773 | (define-ibuffer-column filename-and-process | 1772 | (define-ibuffer-column filename-and-process |
| 1774 | (:name "Filename/Process" | 1773 | (:name "Filename/Process" |