diff options
| author | Richard M. Stallman | 1994-07-31 21:42:11 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-07-31 21:42:11 +0000 |
| commit | 370b6149a40b7ca4f006483166602b61236858ad (patch) | |
| tree | af196ac85800641071950a8c105bdc1e67c64b98 | |
| parent | f1db542733310e20a3f445cd75b5a2f79835a292 (diff) | |
| download | emacs-370b6149a40b7ca4f006483166602b61236858ad.tar.gz emacs-370b6149a40b7ca4f006483166602b61236858ad.zip | |
(dired-noselect): Call abbreviate-file-name here.
(dired-internal-noselect): Not here.
| -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." | |||
| 365 | (if (consp dir-or-list) | 365 | (if (consp dir-or-list) |
| 366 | (setq dirname (car dir-or-list)) | 366 | (setq dirname (car dir-or-list)) |
| 367 | (setq dirname dir-or-list)) | 367 | (setq dirname dir-or-list)) |
| 368 | (setq dirname (expand-file-name (directory-file-name dirname))) | 368 | (setq dirname (abbreviate-file-name |
| 369 | (expand-file-name (directory-file-name dirname)))) | ||
| 369 | (if (file-directory-p dirname) | 370 | (if (file-directory-p dirname) |
| 370 | (setq dirname (file-name-as-directory dirname))) | 371 | (setq dirname (file-name-as-directory dirname))) |
| 371 | (if (consp dir-or-list) | 372 | (if (consp dir-or-list) |
| @@ -410,10 +411,9 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh." | |||
| 410 | (message "Directory has changed on disk; type `g' to update Dired"))) | 411 | (message "Directory has changed on disk; type `g' to update Dired"))) |
| 411 | ;; Else a new buffer | 412 | ;; Else a new buffer |
| 412 | (setq default-directory | 413 | (setq default-directory |
| 413 | (abbreviate-file-name | 414 | (if (file-directory-p dirname) |
| 414 | (if (file-directory-p dirname) | 415 | dirname |
| 415 | dirname | 416 | (file-name-directory dirname))) |
| 416 | (file-name-directory dirname)))) | ||
| 417 | (or switches (setq switches dired-listing-switches)) | 417 | (or switches (setq switches dired-listing-switches)) |
| 418 | (dired-mode dirname switches) | 418 | (dired-mode dirname switches) |
| 419 | ;; default-directory and dired-actual-switches are set now | 419 | ;; default-directory and dired-actual-switches are set now |