Mercurial > emacs
diff lisp/ibuf-ext.el @ 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 | d94285b2b933 |
children | 0a74d0792db2 7beb78bc1f8e |
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")