# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 785581865 0
# Node ID 5803ff60cf47a138541b96b2afb4be8abb648291
# Parent  460fecc93446311e5ff94adcbeab670a4a003048
(map-y-or-n-p): Handle exit-prefix as definition of char.

diff -r 460fecc93446 -r 5803ff60cf47 lisp/map-ynp.el
--- a/lisp/map-ynp.el	Wed Nov 23 09:10:36 1994 +0000
+++ b/lisp/map-ynp.el	Wed Nov 23 09:11:05 1994 +0000
@@ -164,7 +164,7 @@
 			 (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))