comparison lisp/dired.el @ 11970:a99407606405

(dired-find-buffer-nocreate): Check only buffers in dired-buffers instead of all buffers in (buffer-list).

11969:fe63b4e6021a

    buffer))

;; 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)))
    (while blist
      (save-excursion
        (set-buffer (car blist))
	(if (and (eq major-mode 'dired-mode)
		 (equal dired-directory dirname))
	    (setq found (car blist)
		  blist nil)
	  (setq blist (cdr blist)))))
    found))



11970:a99407606405

    buffer))

;; 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 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)))))
    found))