1 files changed, 4 insertions, 0 deletions

diff --git a/lisp/files.el b/lisp/files.el
index f784004c04a..32b21ca91e8 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1466,6 +1466,10 @@ If WILDCARD, it also runs the shell specified by `shell-file-name'."
                             "-c" (concat insert-directory-program
                                          " -d " switches " "
                                          (file-name-nondirectory file))))
+;;;       ;; Chase links till we reach a non-link.
+;;;       (let (symlink)
+;;;         (while (setq symlink (file-symlink-p file))
+;;;           (setq file symlink)))
           (call-process insert-directory-program nil t nil switches file))))))
 
 (defun save-buffers-kill-emacs (&optional arg)