diff options
author | Richard M. Stallman <[email protected]> | 1993-11-22 09:29:51 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1993-11-22 09:29:51 +0000 |
commit | 847aabcec25f9eedd8729c2afc2f5a8dc84736f3 (patch) | |
tree | 041e77189a7fcda8f34f95e42e2a3f799b8d13b9 | |
parent | f45da5d14b243bf8499416217534bf4d61fa485d (diff) |
(dired-readin-insert): Expand default-directory and dirname
before comparing them.
(dired-internal-noselect): Set default-directory to abbreviated name.
-rw-r--r-- | lisp/dired.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 2a197ca7a8..6eb3b284cc 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 |