Mercurial > emacs
comparison lisp/dired.el @ 11970:a99407606405
(dired-find-buffer-nocreate): Check only buffers in
dired-buffers instead of all buffers in (buffer-list).
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Mon, 29 May 1995 04:36:26 +0000 |
parents | cf1d828dbb57 |
children | 67c7f67b5e0c |
comparison
equal
deleted
inserted
replaced
11969:fe63b4e6021a | 11970:a99407606405 |
---|---|
455 buffer)) | 455 buffer)) |
456 | 456 |
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 (buffer-list))) | 460 (let (found (blist dired-buffers)) ; was (buffer-list) |
461 (while blist | 461 (while blist |
462 (save-excursion | 462 (save-excursion |
463 (set-buffer (car blist)) | 463 (set-buffer (cdr (car blist))) |
464 (if (and (eq major-mode 'dired-mode) | 464 (if (and (eq major-mode 'dired-mode) |
465 (equal dired-directory dirname)) | 465 (equal dired-directory dirname)) |
466 (setq found (car blist) | 466 (setq found (cdr (car blist)) |
467 blist nil) | 467 blist nil) |
468 (setq blist (cdr blist))))) | 468 (setq blist (cdr blist))))) |
469 found)) | 469 found)) |
470 | 470 |
471 | 471 |