Commit 370b6149 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(dired-noselect): Call abbreviate-file-name here.

(dired-internal-noselect): Not here.
parent f1db5427
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment