diff options
| author | Karl Heuer <kwzh@gnu.org> | 1995-11-10 19:12:42 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1995-11-10 19:12:42 +0000 |
| commit | 4147a3ccb54182987b4a4b75fef936eb11821e79 (patch) | |
| tree | 2e4c3ba353c93ff8b0f83f3eeddd9bfde25b8e36 | |
| parent | d0fc03efcfff391cc252a872f3b4576be9a4a481 (diff) | |
| download | emacs-4147a3ccb54182987b4a4b75fef936eb11821e79.tar.gz | |
(find-file-noselect): Respect the value of
find-file-visit-truename when FILENAME is a directory and
find-file-run-dired is non-nil.
| -rw-r--r-- | lisp/files.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el index 46668238611..8c42b53cdb3 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -712,7 +712,9 @@ The buffer is not selected, just returned to the caller." (expand-file-name filename))) (if (file-directory-p filename) (if find-file-run-dired - (dired-noselect filename) + (dired-noselect (if find-file-visit-truename + (abbreviate-file-name (file-truename filename)) + filename)) (error "%s is a directory." filename)) (let* ((buf (get-file-buffer filename)) (truename (abbreviate-file-name (file-truename filename))) |