Commit b461e32d authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(Info-insert-dir): Don't quote lambda.

parent eade2e80
...@@ -606,15 +606,15 @@ else defaults to `Top'." ...@@ -606,15 +606,15 @@ else defaults to `Top'."
;; Verify that none of the files we used has changed ;; Verify that none of the files we used has changed
;; since we used it. ;; since we used it.
(eval (cons 'and (eval (cons 'and
(mapcar '(lambda (elt) (mapcar (lambda (elt)
(let ((curr (file-attributes (let ((curr (file-attributes
;; Handle symlinks ;; Handle symlinks
(file-truename (car elt))))) (file-truename (car elt)))))
;; Don't compare the access time. ;; Don't compare the access time.
(if curr (setcar (nthcdr 4 curr) 0)) (if curr (setcar (nthcdr 4 curr) 0))
(setcar (nthcdr 4 (cdr elt)) 0) (setcar (nthcdr 4 (cdr elt)) 0)
(equal (cdr elt) curr))) (equal (cdr elt) curr)))
Info-dir-file-attributes)))) Info-dir-file-attributes))))
(progn (progn
(insert Info-dir-contents) (insert Info-dir-contents)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment