From 4147a3ccb54182987b4a4b75fef936eb11821e79 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Fri, 10 Nov 1995 19:12:42 +0000 Subject: [PATCH] (find-file-noselect): Respect the value of find-file-visit-truename when FILENAME is a directory and find-file-run-dired is non-nil. --- lisp/files.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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))) -- 2.39.2