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

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

(dired-readin-insert): Expand default-directory and dirname
before comparing them. (dired-internal-noselect): Set default-directory to abbreviated name.
847aabce · Richard M. Stallman · f45da5d1 · 847aabce
Commit 847aabce authored Nov 22, 1993 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 3 deletions

lisp/dired.el lisp/dired.el +5 -3

No files found.
--- 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