(dired-readin-insert): Expand default-directory and dirname

before comparing them.
(dired-internal-noselect): Set default-directory to abbreviated name.

diff --git a/lisp/dired.el b/lisp/dired.el
index 2a197ca7a8eab42dbc108d4796bfd0910bb373d6..6eb3b284cc4e4d812df353ac9f47e2584030378f 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -398,9 +398,11 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh."
        (if switches                    ; ... but new switches
            (dired-sort-other switches))        ; this calls dired-revert
       ;; Else a new buffer
-      (setq default-directory (if (file-directory-p dirname)
-                                 dirname
-                               (file-name-directory dirname)))
+      (setq default-directory
+           (abbreviate-file-name
+            (if (file-directory-p dirname)
+                dirname
+              (file-name-directory dirname))))
       (or switches (setq switches dired-listing-switches))
       (dired-mode dirname switches)
       ;; default-directory and dired-actual-switches are set now