procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(map-y-or-n-p): If we read -1, for end of keyboard

Browse source 
macro, try again.
This commit is contained in:
Phillip Rulon 1999-10-10 01:22:34 +00:00
parent f6ac5659c8
commit 3f72fac865
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/map-ynp.el
View file

@ -149,7 +149,11 @@ Returns the number of actions taken."
(key-description (vector help-char)))
(if minibuffer-auto-raise
(raise-frame (window-frame (minibuffer-window))))
(setq char (read-event))
(while (progn
(setq char (read-event))
;; If we get -1, from end of keyboard
;; macro, try again.
(not (equal char -1))))
;; Show the answer to the question.
(message "%s(y, n, !, ., q, %sor %s) %s"
prompt user-keys