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
81eb8fcd
Commit
81eb8fcd
authored
Mar 09, 1993
by
Richard M. Stallman
Browse files
(map-y-or-n-p): Handle `quit' as answer.
parent
0a2eb25e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
0 deletions
+6
-0
lisp/map-ynp.el
lisp/map-ynp.el
+6
-0
No files found.
lisp/map-ynp.el
View file @
81eb8fcd
...
...
@@ -111,6 +111,7 @@ Returns the number of actions taken."
(
setq
prompt
(
funcall
prompter
elt
))
(
if
(
stringp
prompt
)
(
progn
(
setq
quit-flag
nil
)
;; Prompt the user about this object.
(
let
((
cursor-in-echo-area
t
))
(
message
"%s(y, n, !, ., q, %sor %s) "
...
...
@@ -132,6 +133,11 @@ Returns the number of actions taken."
(
funcall
actor
elt
)
(
setq
actions
(
1+
actions
)
next
(
function
(
lambda
()
nil
))))
((
eq
def
'quit
)
(
setq
quit-flag
t
)
(
setq
next
(
`
(
lambda
()
(
setq
next
'
(
,
next
))
'
(
,
elt
)))))
((
eq
def
'automatic
)
;; Act on this and all following objects.
(
if
(
eval
(
funcall
prompter
elt
))
...
...
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