Mercurial > emacs
changeset 67408:8d183984281e
(define-ibuffer-filter filename): If `dired-directory' is a list then
really use its car.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Thu, 08 Dec 2005 23:48:18 +0000 |
| parents | bb2f67d4e710 |
| children | 2f7afbed9a58 |
| files | lisp/ibuf-ext.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ibuf-ext.el Thu Dec 08 22:52:50 2005 +0000 +++ b/lisp/ibuf-ext.el Thu Dec 08 23:48:18 2005 +0000 @@ -1021,10 +1021,12 @@ (ibuffer-awhen (with-current-buffer buf (or buffer-file-name (and (boundp 'dired-directory) - (if (stringp dired-directory) - dired-directory - (car dired-directory)) - (expand-file-name dired-directory)))) + (let ((dired-dir + (if (stringp dired-directory) + dired-directory + (car dired-directory)))) + (and dired-dir + (expand-file-name dired-dir)))))) (string-match qualifier it))) ;;;###autoload (autoload 'ibuffer-filter-by-size-gt "ibuf-ext")