From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 29 Sep 2000 01:00:18 +0000 (+0000)
Subject: (map-y-or-n-p): Fix missing backquotes.
X-Git-Tag: emacs-pretest-21.0.90~1314
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4f837d3b58c504d033e65670e3a76004fb2f57c2;p=emacs.git

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

diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el
index d23c31ac4b4..e986ae87359 100644
--- a/lisp/map-ynp.el
+++ b/lisp/map-ynp.el
@@ -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