From ec8be6da94c78a4103677c77b9ab24ceef4451ec Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sun, 20 Sep 1992 23:59:32 +0000
Subject: entered into RCS

---
 lisp/files.el | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'lisp')

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)
-- 
cgit v1.2.3