Mercurial > emacs

changeset 11970:a99407606405

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 fe63b4e6021a
children d72fbbe25780
files lisp/dired.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/dired.el	Mon May 29 04:12:46 1995 +0000
+++ b/lisp/dired.el	Mon May 29 04:36:26 1995 +0000
@@ -457,13 +457,13 @@
 ;; This differs from dired-buffers-for-dir in that it does not consider
 ;; subdirs of default-directory and searches for the first match only
 (defun dired-find-buffer-nocreate (dirname)
-  (let (found (blist (buffer-list)))
+  (let (found (blist dired-buffers))    ; was (buffer-list)
     (while blist
       (save-excursion
-        (set-buffer (car blist))
+	(set-buffer (cdr (car blist)))
 	(if (and (eq major-mode 'dired-mode)
 		 (equal dired-directory dirname))
-	    (setq found (car blist)
+	    (setq found (cdr (car blist))
 		  blist nil)
 	  (setq blist (cdr blist)))))
     found))