From 370b6149a40b7ca4f006483166602b61236858ad Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 31 Jul 1994 21:42:11 +0000 Subject: [PATCH] (dired-noselect): Call abbreviate-file-name here. (dired-internal-noselect): Not here. --- lisp/dired.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/dired.el b/lisp/dired.el index f65197b4118..705c1b8abb7 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -365,7 +365,8 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh." (if (consp dir-or-list) (setq dirname (car dir-or-list)) (setq dirname dir-or-list)) - (setq dirname (expand-file-name (directory-file-name dirname))) + (setq dirname (abbreviate-file-name + (expand-file-name (directory-file-name dirname)))) (if (file-directory-p dirname) (setq dirname (file-name-as-directory dirname))) (if (consp dir-or-list) @@ -410,10 +411,9 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh." (message "Directory has changed on disk; type `g' to update Dired"))) ;; Else a new buffer (setq default-directory - (abbreviate-file-name - (if (file-directory-p dirname) - dirname - (file-name-directory dirname)))) + (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