diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-06-12 05:16:04 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-06-12 05:16:04 +0000 |
| commit | b461e32d05f6ae253c90331554b21d9551f0ac13 (patch) | |
| tree | 9ad4d9daf05330219a9571ea3e32c26d4500ef15 /lisp | |
| parent | eade2e80a7187b770d3e95a1ed4a074008b37cd8 (diff) | |
| download | emacs-b461e32d05f6ae253c90331554b21d9551f0ac13.tar.gz | |
(Info-insert-dir): Don't quote lambda.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/info.el | 18 |
1 files 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) |