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

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

diff --git a/lisp/files.el b/lisp/files.el
index 46668238611fe903acf275b11b472b624740c35f..8c42b53cdb3e2a36ad417adf29f6e7bdb6148726 100644 (file)
--- 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)))