aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/dired-x.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index 6b24f99a7df..2594d1c6d54 100644
--- a/lisp/dired-x.el
+++ b/lisp/dired-x.el
@@ -301,7 +301,7 @@ See also functions
301 (file-name-nondirectory fn))) 301 (file-name-nondirectory fn)))
302 (save-excursion ; you never know where kill-buffer leaves you 302 (save-excursion ; you never know where kill-buffer leaves you
303 (kill-buffer buf)))) 303 (kill-buffer buf))))
304 (let ((buf-list (dired-buffers-for-dir fn)) 304 (let ((buf-list (dired-buffers-for-dir (expand-file-name fn)))
305 (buf nil)) 305 (buf nil))
306 (and buf-list 306 (and buf-list
307 (y-or-n-p (format "Kill dired buffer%s of %s, too? " 307 (y-or-n-p (format "Kill dired buffer%s of %s, too? "
@@ -1364,7 +1364,8 @@ See also variable `dired-vm-read-only-folders'."
1364(defun dired-find-buffer-nocreate (dirname) 1364(defun dired-find-buffer-nocreate (dirname)
1365 (if dired-find-subdir 1365 (if dired-find-subdir
1366 (let* ((cur-buf (current-buffer)) 1366 (let* ((cur-buf (current-buffer))
1367 (buffers (nreverse (dired-buffers-for-dir dirname))) 1367 (buffers (nreverse
1368 (dired-buffers-for-dir (expand-file-name dirname))))
1368 (cur-buf-matches (and (memq cur-buf buffers) 1369 (cur-buf-matches (and (memq cur-buf buffers)
1369 ;; wildcards must match, too: 1370 ;; wildcards must match, too:
1370 (equal dired-directory dirname)))) 1371 (equal dired-directory dirname))))