Mercurial > emacs
changeset 13497:156eb7abebbd
(find-file-noselect): Respect the value of
find-file-visit-truename when FILENAME is a directory and
find-file-run-dired is non-nil.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 10 Nov 1995 19:12:42 +0000 |
| parents | 1bd9f5d576ce |
| children | c10046894834 |
| files | lisp/files.el |
| diffstat | 1 files changed, 3 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/files.el Fri Nov 10 19:08:56 1995 +0000 +++ b/lisp/files.el Fri Nov 10 19:12:42 1995 +0000 @@ -712,7 +712,9 @@ (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)))