aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJohn Paul Wallington2008-08-10 03:42:43 +0000
committerJohn Paul Wallington2008-08-10 03:42:43 +0000
commit9d458edce92bab856eab51af8a8499e1f3f86c3f (patch)
treecabcfe593231ba0651be9a397f96b1220e7ea1f9
parenta43a8a2e815da1aa665e67b229d438259890fc32 (diff)
downloademacs-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.el5
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"