Mercurial > emacs
changeset 29583:f1b4be7fce6d
(Info-insert-dir): Don't quote lambda.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 12 Jun 2000 05:16:04 +0000 |
| parents | 9ae7afa3d8d1 |
| children | ceac5f32ef04 |
| files | lisp/info.el |
| diffstat | 1 files changed, 8 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/info.el Mon Jun 12 05:10:52 2000 +0000 +++ b/lisp/info.el Mon Jun 12 05:16:04 2000 +0000 @@ -606,15 +606,15 @@ ;; Verify that none of the files we used has changed ;; since we used it. (eval (cons 'and - (mapcar '(lambda (elt) - (let ((curr (file-attributes - ;; Handle symlinks - (file-truename (car elt))))) + (mapcar (lambda (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) - (equal (cdr elt) curr))) + ;; Don't compare the access time. + (if curr (setcar (nthcdr 4 curr) 0)) + (setcar (nthcdr 4 (cdr elt)) 0) + (equal (cdr elt) curr))) Info-dir-file-attributes)))) (progn (insert Info-dir-contents)