From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 26 May 1995 04:23:21 +0000 (+0000)
Subject: (dired-find-buffer-nocreate): Don't try to find a
X-Git-Tag: emacs-19.34~3925
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=10774fb5775efbdcd9d75f9de9e2a514242c864b;p=emacs.git

(dired-find-buffer-nocreate): Don't try to find a
wildcard as a subdirectory.
---

diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index bf066123bf7..e9950248d27 100644
--- a/lisp/dired-x.el
+++ b/lisp/dired-x.el
@@ -1366,18 +1366,20 @@ See also variable `dired-vm-read-only-folders'."
 ;;; REDEFINE.
 ;;; Redefines dired.el's version of `dired-find-buffer-nocreate'
 (defun dired-find-buffer-nocreate (dirname)
-  (if dired-find-subdir
+  (if (and dired-find-subdir
+	   ;; don't try to find a wildcard as a subdirectory
+	   (string-equal dirname (file-name-directory dirname)))
       (let* ((cur-buf (current-buffer))
-             (buffers (nreverse
+	     (buffers (nreverse
 		       (dired-buffers-for-dir (expand-file-name dirname))))
-             (cur-buf-matches (and (memq cur-buf buffers)
-                                   ;; wildcards must match, too:
-                                   (equal dired-directory dirname))))
-        ;; We don't want to switch to the same buffer---
-        (setq buffers (delq cur-buf buffers));;need setq with delq
-        (or (car (sort buffers (function dired-buffer-more-recently-used-p)))
-            ;; ---unless it's the only possibility:
-            (and cur-buf-matches cur-buf)))
+	     (cur-buf-matches (and (memq cur-buf buffers)
+				   ;; wildcards must match, too:
+				   (equal dired-directory dirname))))
+	;; We don't want to switch to the same buffer---
+	(setq buffers (delq cur-buf buffers));;need setq with delq
+	(or (car (sort buffers (function dired-buffer-more-recently-used-p)))
+	    ;; ---unless it's the only possibility:
+	    (and cur-buf-matches cur-buf)))
     (dired-old-find-buffer-nocreate dirname)))
 
 ;; This should be a builtin