diff options
| author | Karl Heuer | 1995-05-31 21:06:48 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-05-31 21:06:48 +0000 |
| commit | 6103c44e5a46ec815db8b14635157bb4211eeb5b (patch) | |
| tree | 3864f01726fa3970e52cc001d759c260a3b24f6a | |
| parent | 1f92d7ef0d5ee72bce421db7e288131f776c8310 (diff) | |
| download | emacs-6103c44e5a46ec815db8b14635157bb4211eeb5b.tar.gz emacs-6103c44e5a46ec815db8b14635157bb4211eeb5b.zip | |
(dired-find-buffer-nocreate): Ignore dead buffers.
| -rw-r--r-- | lisp/dired.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 56d5cffb7c2..d049ee706d8 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -459,13 +459,15 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh." | |||
| 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 | ||