Ibuffer and Dired with list.

[Matt Hodges]

In GNU Emacs 22.0.50.26 (i686-pc-linux-gnu, GTK+ Version 2.6.10)
 of 2005-12-08 on escpc40
configured using `configure '--with-gtk''

I have a package that shows a list of files in various directories
using Dired.  Ibuffer throws an error when such a buffer exists, and
filtering by filename.

To reproduce:

    (dired '("/etc" "/etc/passwd" "/etc/group"))

    M-x ibuffer RET

    / f RET

Backtrace with ibuffer.el and ibuf-ext.el loaded is:

    Debugger entered--Lisp error: (wrong-type-argument stringp ("/etc/" 
"/etc/passwd" "/etc/group"))
      expand-file-name(("/etc/" "/etc/passwd" "/etc/group"))
      (and (boundp (quote dired-directory)) (if (stringp dired-directory) 
dired-directory (car dired-directory)) (expand-file-name dired-directory))
      (or buffer-file-name (and (boundp ...) (if ... dired-directory ...) 
(expand-file-name dired-directory)))
      (save-current-buffer (set-buffer buf) (or buffer-file-name (and ... ... 
...)))
      (with-current-buffer buf (or buffer-file-name (and ... ... ...)))
      (let ((ibuffer-aif-sym ...)) (if ibuffer-aif-sym (let ... ...) (progn 
nil)))
      (ibuffer-aif (with-current-buffer buf (or buffer-file-name ...)) (progn 
(string-match qualifier it)) nil)
      (ibuffer-awhen (with-current-buffer buf (or buffer-file-name ...)) 
(string-match qualifier it))
      (lambda (buf qualifier) (ibuffer-awhen (with-current-buffer buf ...) 
(string-match qualifier it)))(#<buffer etc> "")
      funcall((lambda (buf qualifier) (ibuffer-awhen (with-current-buffer buf 
...) (string-match qualifier it))) #<buffer etc> "")
      (not (funcall (caddr filterdat) buf (cdr filter)))
      (not (not (funcall ... buf ...)))
      (let ((filterdat ...)) (unless filterdat (ibuffer-filter-disable) (error 
"Undefined filter %s" ...)) (not (not ...)))
      (cond ((eql ... ...) (memq t ...)) ((eql ... ...) (let ... ... ...)) (t 
(let ... ... ...)))
      (case (car filter) (or (memq t ...)) (saved (let ... ... ...)) (t (let 
... ... ...)))
      (not (case (car filter) (or ...) (saved ...) (t ...)))
      (not (not (case ... ... ... ...)))
      ibuffer-included-in-filter-p-1(#<buffer etc> (filename . ""))
      (if (eq (car filter) (quote not)) (not (ibuffer-included-in-filter-p-1 
buf ...)) (ibuffer-included-in-filter-p-1 buf filter))
      ibuffer-included-in-filter-p(#<buffer etc> (filename . ""))
      (lambda (qual) (ibuffer-included-in-filter-p buf qual))((filename . ""))
      mapcar((lambda (qual) (ibuffer-included-in-filter-p buf qual)) ((filename 
. "")))
      (memq nil (mapcar (function ...) filters))
      (not (memq nil (mapcar ... filters)))
      ibuffer-included-in-filters-p(#<buffer etc> ((filename . "")))
      (or (ibuffer-included-in-filters-p buf ibuffer-filtering-qualifiers) 
(ibuffer-buf-matches-predicates buf ibuffer-always-show-predicates))
      (and (not (or ... ...)) (or all (not ...)) (or ibuffer-view-ibuffer (and 
ibuffer-buf ...)) (or (ibuffer-included-in-filters-p buf 
ibuffer-filtering-qualifiers) (ibuffer-buf-matches-predicates buf 
ibuffer-always-show-predicates)))
      (or (ibuffer-buf-matches-predicates buf ibuffer-tmp-show-regexps) (and 
(not ...) (or all ...) (or ibuffer-view-ibuffer ...) (or ... ...)))
      ibuffer-ext-visible-p(#<buffer etc> nil #<buffer *Ibuffer*>)
      funcall(ibuffer-ext-visible-p #<buffer etc> nil #<buffer *Ibuffer*>)
      (or (and ibuffer-always-show-last-buffer (eq last buf)) (funcall (if 
ext-loaded ... ...) buf all ibuffer-buf))
      (if (or (and ibuffer-always-show-last-buffer ...) (funcall ... buf all 
ibuffer-buf)) (progn e))
      (when (or (and ibuffer-always-show-last-buffer ...) (funcall ... buf all 
ibuffer-buf)) e)
      (let* ((buf ...)) (when (or ... ...) e))
      (lambda (e) (let* (...) (when ... e)))((#<buffer etc> . 32))
      mapcar((lambda (e) (let* (...) (when ... e))) ((#<buffer *Ibuffer*> . 32) 
(#<buffer  *Minibuf-1*> . 32) (#<buffer etc> . 32) (#<buffer *mail*> . 32) 
(#<buffer test.el> . 32) (#<buffer *Bug Help*> . 32) (#<buffer *scratch*> . 32) 
(#<buffer  *Minibuf-0*> . 32) (#<buffer *Messages*> . 32) (#<buffer  *Echo Area 
0*> . 32) (#<buffer  *Echo Area 1*> . 32) (#<buffer *Completions*> . 32) 
(#<buffer *Help*> . 32)))
      (delq nil (mapcar (function ...) bmarklist))
      (let ((ext-loaded ...)) (delq nil (mapcar ... bmarklist)))
      ibuffer-filter-buffers(#<buffer *Ibuffer*> #<buffer  *Minibuf-1*> 
((#<buffer *Ibuffer*> . 32) (#<buffer  *Minibuf-1*> . 32) (#<buffer etc> . 32) 
(#<buffer *mail*> . 32) (#<buffer test.el> . 32) (#<buffer *Bug Help*> . 32) 
(#<buffer *scratch*> . 32) (#<buffer  *Minibuf-0*> . 32) (#<buffer *Messages*> 
. 32) (#<buffer  *Echo Area 0*> . 32) (#<buffer  *Echo Area 1*> . 32) (#<buffer 
*Completions*> . 32) (#<buffer *Help*> . 32)) nil)
      (let* ((bufs ...) (blist ...)) (when (null blist) (if ... ... ...)) 
(unless silent (message "Updating buffer list...")) (ibuffer-redisplay-engine 
blist arg) (ibuffer-update-mode-name) (unless silent (message "Updating buffer 
list...done")))
      ibuffer-update(nil t)
      ibuffer-filter-by-filename("")
      call-interactively(ibuffer-filter-by-filename)

Thanks,

Matt