# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 915328591 0
# Node ID bba55b2f2577deec65c6a24dbf1c913820568748
# Parent  9caafbfd813024723ca141fabed89e0457f7012c
(Info-insert-dir): Chase symlinks for file-attributes.

diff -r 9caafbfd8130 -r bba55b2f2577 lisp/info.el
--- a/lisp/info.el	Sat Jan 02 21:54:32 1999 +0000
+++ b/lisp/info.el	Sun Jan 03 01:56:31 1999 +0000
@@ -585,7 +585,10 @@
 	   ;; since we used it.
 	   (eval (cons 'and
 		       (mapcar '(lambda (elt)
-				  (let ((curr (file-attributes (car elt))))
+				  (let ((curr (file-attributes 
+					       ;; Handle symlinks
+					       (file-truename (car elt)))))
+				    
 				    ;; Don't compare the access time.
 				    (if curr (setcar (nthcdr 4 curr) 0))
 				    (setcar (nthcdr 4 (cdr elt)) 0)