Re: [Q] Several emacs instances / dired and "derived" buffers

[Kevin Rodgers]

Michael Schierl wrote:
> Kevin Rodgers <ihs_4664@yahoo.com> writes:
>>   (mapc (lambda (buf)
>>          (let ((file (buffer-file-name buf)))
>>            (when (and file
>> 
	       (equal (file-name-directory file) dir))
>>              (kill-buffer buf))))
>>        (buffer-list))
>
> That one only closes all files *in* a directory and not *below* a
> directory. If you specify to close all files below "/foo/bar", a file
> like "/foo/bar/src/package/subpackage/blah/Classname.java" will
> not be closed as well.

Change (equal (file-name-directory file) dir) to
(string-match (concat "^" (regexp-quote (file-name-directory))) dir)

--
Kevin Rodgers