From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 22 Nov 1993 09:25:23 +0000 (+0000)
Subject: (dired-readin-insert): Expand default-directory and dirname
X-Git-Tag: emacs-19.34~10739
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f45da5d14b243bf8499416217534bf4d61fa485d;p=emacs.git

(dired-readin-insert): Expand default-directory and dirname
before comparing them.
---

diff --git a/lisp/dired.el b/lisp/dired.el
index 8c7c9baa998..2a197ca7a8e 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -489,7 +489,9 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh."
     (if (consp dir-or-list)
 	(setq dirname (car dir-or-list))
       (setq dirname dir-or-list))
-    (if (and (equal default-directory dirname)
+    ;; Expand before comparing in case one or both have been abbreviated.
+    (if (and (equal (expand-file-name default-directory)
+		    (expand-file-name dirname))
 	     (not (consp dir-or-list)))
 	;; If we are reading a whole single directory...
 	(dired-insert-directory dir-or-list dired-actual-switches nil t)