From b461e32d05f6ae253c90331554b21d9551f0ac13 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 12 Jun 2000 05:16:04 +0000 Subject: [PATCH] (Info-insert-dir): Don't quote lambda. --- lisp/info.el | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/lisp/info.el b/lisp/info.el index 494570bb50e..a4caf19fb62 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -606,15 +606,15 @@ else defaults to `Top'." ;; 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))))) - - ;; Don't compare the access time. - (if curr (setcar (nthcdr 4 curr) 0)) - (setcar (nthcdr 4 (cdr elt)) 0) - (equal (cdr elt) curr))) + (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))) Info-dir-file-attributes)))) (progn (insert Info-dir-contents) -- 2.39.5