(dired-noselect): Resolve symbolic links in argument.

cb2e51f8 · Richard M. Stallman · 333bc6d0 · cb2e51f8
Commit cb2e51f8 authored Apr 05, 1996 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

lisp/dired.el lisp/dired.el +2 -0

No files found.
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -386,6 +386,8 @@ If DIRNAME is already in a dired buffer, that buffer is used without refresh."
      (setq dirname dir-or-list))
    (setq dirname (abbreviate-file-name
 		   (expand-file-name (directory-file-name dirname))))
+    (if find-file-visit-truename
+	(setq dirname (file-truename dirname)))
    (if (file-directory-p dirname)
 	(setq dirname (file-name-as-directory dirname)))
    (if (consp dir-or-list)