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

(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 2a197ca7a8e..6eb3b284cc4 100644
--- 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