(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 99e081bc9e9a145ed7220e63ecb67710173fe5a9..34b93cbfce8e002106c82a2290b27ad6f0ace1ad 100644 (file)
--- 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))