# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 717033572 0
# Node ID 756152bcdbc010ab86411a17394d2d58d81eba13
# Parent  5897b220ad8e916eb6d7109fc0056c658b0fea93
entered into RCS

diff -r 5897b220ad8e -r 756152bcdbc0 lisp/files.el
--- a/lisp/files.el	Sun Sep 20 22:45:13 1992 +0000
+++ b/lisp/files.el	Sun Sep 20 23:59:32 1992 +0000
@@ -1466,6 +1466,10 @@
 			    "-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)