diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-07-31 21:42:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-07-31 21:42:11 +0000 |
| commit | 370b6149a40b7ca4f006483166602b61236858ad (patch) | |
| tree | af196ac85800641071950a8c105bdc1e67c64b98 /lisp/dired.el | |
| parent | f1db542733310e20a3f445cd75b5a2f79835a292 (diff) | |
| download | emacs-370b6149a40b7ca4f006483166602b61236858ad.tar.gz | |
(dired-noselect): Call abbreviate-file-name here.
(dired-internal-noselect): Not here.
Diffstat (limited to 'lisp/dired.el')
| -rw-r--r-- | lisp/dired.el | 10 |
1 files 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 |