procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(dired-find-buffer-nocreate): Ignore dead buffers.

Browse source
This commit is contained in:
Karl Heuer 1995-05-31 21:06:48 +00:00
parent 1f92d7ef0d
commit 6103c44e5a
1 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/dired.el
View file

@ -459,13 +459,15 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh."
(defun dired-find-buffer-nocreate (dirname)
(let (found (blist dired-buffers)) ; was (buffer-list)
(while blist
(save-excursion
(set-buffer (cdr (car blist)))
(if (and (eq major-mode 'dired-mode)
(equal dired-directory dirname))
(setq found (cdr (car blist))
blist nil)
(setq blist (cdr blist)))))
(if (null (buffer-name (cdr (car blist))))
(setq blist (cdr blist))
(save-excursion
(set-buffer (cdr (car blist)))
(if (and (eq major-mode 'dired-mode)
(equal dired-directory dirname))
(setq found (cdr (car blist))
blist nil)
(setq blist (cdr blist))))))
found))