Mercurial > emacs
changeset 23981:bba55b2f2577
(Info-insert-dir): Chase symlinks for file-attributes.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sun, 03 Jan 1999 01:56:31 +0000 |
| parents | 9caafbfd8130 |
| children | f9ccd26b8627 |
| files | lisp/info.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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)