diff options
| author | Richard M. Stallman | 1996-04-05 19:11:05 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-04-05 19:11:05 +0000 |
| commit | cb2e51f84b4bc68f1493da1b9883143409058140 (patch) | |
| tree | 7075f55532e6046a7a13dfd69fec195652373897 | |
| parent | 333bc6d09f874f468b4b7d372c9f20b7413bb654 (diff) | |
| download | emacs-cb2e51f84b4bc68f1493da1b9883143409058140.tar.gz emacs-cb2e51f84b4bc68f1493da1b9883143409058140.zip | |
(dired-noselect): Resolve symbolic links in argument.
| -rw-r--r-- | lisp/dired.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/dired.el b/lisp/dired.el index 18f865551a6..76ce9e8d45d 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -386,6 +386,8 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh." | |||
| 386 | (setq dirname dir-or-list)) | 386 | (setq dirname dir-or-list)) |
| 387 | (setq dirname (abbreviate-file-name | 387 | (setq dirname (abbreviate-file-name |
| 388 | (expand-file-name (directory-file-name dirname)))) | 388 | (expand-file-name (directory-file-name dirname)))) |
| 389 | (if find-file-visit-truename | ||
| 390 | (setq dirname (file-truename dirname))) | ||
| 389 | (if (file-directory-p dirname) | 391 | (if (file-directory-p dirname) |
| 390 | (setq dirname (file-name-as-directory dirname))) | 392 | (setq dirname (file-name-as-directory dirname))) |
| 391 | (if (consp dir-or-list) | 393 | (if (consp dir-or-list) |