# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 753960323 0
# Node ID 4bb3a179a87f18d7fabd05c68f6064c907d5660c
# Parent  d9fb93d75f7461dcec2085d78ac9e866e6ab689a
(dired-readin-insert): Expand default-directory and dirname
before comparing them.

diff -r d9fb93d75f74 -r 4bb3a179a87f lisp/dired.el
--- a/lisp/dired.el	Mon Nov 22 06:44:12 1993 +0000
+++ b/lisp/dired.el	Mon Nov 22 09:25:23 1993 +0000
@@ -489,7 +489,9 @@
     (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)