mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 00:32:12 -07:00
Code Issues Projects Releases Wiki Activity

(map-y-or-n-p): Fix missing backquotes.

Browse source
This commit is contained in:
Stefan Monnier 2000-09-29 01:00:18 +00:00
parent 5979523a64
commit 4f837d3b58
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/map-ynp.el
View file

@ -112,7 +112,7 @@ Returns the number of actions taken."
(vector (nth 1 elt))))
action-alist))
use-menus t
mouse-event last-nonmenu-event))
mouse-event last-nonmenu-event))
(setq user-keys (if action-alist
(concat (mapconcat (function
(lambda (elt)
@ -220,7 +220,7 @@ the current %s and exit."
(set-buffer standard-output)
(help-mode)))
(setq next (lambda ()
(setq next `(lambda ()
(setq next ',next)
',elt)))
((vectorp def)
@ -229,14 +229,14 @@ the current %s and exit."
;; The function has eaten this object.
(setq actions (1+ actions))
;; Regurgitated; try again.
(setq next (lambda ()
(setq next `(lambda ()
(setq next ',next)
',elt))))
((and (consp char)
(eq (car char) 'switch-frame))
;; switch-frame event. Put it off until we're done.
(setq delayed-switch-frame char)
(setq next (lambda ()
(setq next `(lambda ()
(setq next ',next)
',elt)))
(t
@ -245,7 +245,7 @@ the current %s and exit."
(key-description (vector help-char)))
(beep)
(sit-for 1)
(setq next (lambda ()
(setq next `(lambda ()
(setq next ',next)
',elt)))))
(prompt