# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 816030762 0
# Node ID 156eb7abebbd5cf22776639f68e979e117bdf84b
# Parent  1bd9f5d576ce495a65bf405ddab916d7b0f7d6bc
(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 -r 1bd9f5d576ce -r 156eb7abebbd lisp/files.el
--- 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)))