Mercurial > emacs

comparison lisp/dired.el @ 12045:ad681fd69905

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(dired-find-buffer-nocreate): Ignore dead buffers.
author Karl Heuer <kwzh@gnu.org>
date Wed, 31 May 1995 21:06:48 +0000
parents 67c7f67b5e0c
children 472729271c30
comparison
equal deleted inserted replaced
12044:091ae363ac1c 12045:ad681fd69905
457 ;; This differs from dired-buffers-for-dir in that it does not consider 457 ;; This differs from dired-buffers-for-dir in that it does not consider
458 ;; subdirs of default-directory and searches for the first match only 458 ;; subdirs of default-directory and searches for the first match only
459 (defun dired-find-buffer-nocreate (dirname) 459 (defun dired-find-buffer-nocreate (dirname)
460 (let (found (blist dired-buffers)) ; was (buffer-list) 460 (let (found (blist dired-buffers)) ; was (buffer-list)
461 (while blist 461 (while blist
462 (save-excursion 462 (if (null (buffer-name (cdr (car blist))))
463 (set-buffer (cdr (car blist))) 463 (setq blist (cdr blist))
464 (if (and (eq major-mode 'dired-mode) 464 (save-excursion
465 (equal dired-directory dirname)) 465 (set-buffer (cdr (car blist)))
466 (setq found (cdr (car blist)) 466 (if (and (eq major-mode 'dired-mode)
467 blist nil) 467 (equal dired-directory dirname))
468 (setq blist (cdr blist))))) 468 (setq found (cdr (car blist))
469 blist nil)
470 (setq blist (cdr blist))))))
469 found)) 471 found))
470 472
471 473
472 ;; Read in a new dired buffer 474 ;; Read in a new dired buffer
473 475