From 847aabcec25f9eedd8729c2afc2f5a8dc84736f3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 22 Nov 1993 09:29:51 +0000 Subject: [PATCH] (dired-readin-insert): Expand default-directory and dirname before comparing them. (dired-internal-noselect): Set default-directory to abbreviated name. --- lisp/dired.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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 -- 2.39.5