Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
b461e32d
Commit
b461e32d
authored
Jun 12, 2000
by
Stefan Monnier
Browse files
(Info-insert-dir): Don't quote lambda.
parent
eade2e80
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
9 additions
and
9 deletions
+9
-9
lisp/info.el
lisp/info.el
+9
-9
No files found.
lisp/info.el
View file @
b461e32d
...
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment