From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 23 Nov 1994 09:11:05 +0000 (+0000)
Subject: (map-y-or-n-p): Handle exit-prefix as definition of char.
X-Git-Tag: emacs-19.34~5797
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=59f4a401d618048e0976879e9e8c1b6db90a5dac;p=emacs.git

(map-y-or-n-p): Handle exit-prefix as definition of char.
---

diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el
index 99e081bc9e9..34b93cbfce8 100644
--- a/lisp/map-ynp.el
+++ b/lisp/map-ynp.el
@@ -164,7 +164,7 @@ Returns the number of actions taken."
 			 (funcall actor elt)
 			 (setq actions (1+ actions)
 			       next (function (lambda () nil))))
-			((eq def 'quit)
+			((or (eq def 'quit) (eq def 'exit-prefix))
 			 (setq quit-flag t)
 			 (setq next (` (lambda ()
 					 (setq next '(, next))