From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 12 Jun 2000 05:16:04 +0000 (+0000)
Subject: (Info-insert-dir): Don't quote lambda.
X-Git-Tag: emacs-pretest-21.0.90~3381
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b461e32d05f6ae253c90331554b21d9551f0ac13;p=emacs.git

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

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)