From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 3 Jan 1999 01:56:31 +0000 (+0000)
Subject: (Info-insert-dir): Chase symlinks for file-attributes.
X-Git-Tag: emacs-20.4~968
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=76af32d5f76c64063358400728cb2b32912068e5;p=emacs.git

(Info-insert-dir): Chase symlinks for file-attributes.
---

diff --git a/lisp/info.el b/lisp/info.el
index a88b28ddbf5..a81da542d36 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -585,7 +585,10 @@ In standalone mode, \\<Info-mode-map>\\[Info-exit] exits Emacs itself."
 	   ;; 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)