(find-file-noselect): Respect the value of

find-file-visit-truename when FILENAME is a directory and
find-file-run-dired is non-nil.

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)))