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
0af46a8b
Commit
0af46a8b
authored
Jul 09, 1991
by
Roland McGrath
Browse files
*** empty log message ***
parent
c888bcc3
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
14 additions
and
11 deletions
+14
-11
lisp/map-ynp.el
lisp/map-ynp.el
+14
-11
No files found.
lisp/map-ynp.el
View file @
0af46a8b
...
...
@@ -115,31 +115,34 @@ Returns the number of actions taken."
(
setq
actions
(
1+
actions
)
next
(
function
(
lambda
()
nil
))))
((
=
?!
char
)
;; Act on all following objects.
;; Act on this and all following objects.
(
if
(
eval
(
funcall
prompter
elt
))
(
progn
(
funcall
actor
elt
)
(
setq
actions
(
1+
actions
))))
(
while
(
setq
elt
(
funcall
next
))
(
if
(
funcall
prompter
elt
)
(
if
(
eval
(
funcall
prompter
elt
)
)
(
progn
(
funcall
actor
elt
)
(
setq
actions
(
1+
actions
))))))
((
=
??
char
)
(
setq
unread-command-char
help-char
)
(
setq
next
(
`
(
function
(
lambda
()
(
setq
next
(
,
next
))
t
)))))
(
setq
next
(
`
(
lambda
()
(
setq
next
'
(
,
next
))
'
(
,
el
t
)))))
(
t
;; Random char.
(
message
"Type %s for help."
(
key-description
(
char-to-string
help-char
)))
(
beep
)
(
sit-for
1
)
(
setq
next
(
`
(
function
(
lambda
()
(
setq
next
(
,
next
))
t
)))))))
(
setq
next
(
`
(
lambda
()
(
setq
next
'
(
,
next
))
'
(
,
el
t
)))))))
(
if
(
eval
prompt
)
(
progn
(
funcall
actor
(
car
list
))
(
setq
actions
(
1+
actions
)))))
(
setq
list
(
cdr
list
)))
(
funcall
actor
elt
)
(
setq
actions
(
1+
actions
))))))
;; Clear the last prompt from the minibuffer.
(
message
""
)
;; Return the number of actions that were taken.
...
...
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