From 59f4a401d618048e0976879e9e8c1b6db90a5dac Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 23 Nov 1994 09:11:05 +0000 Subject: [PATCH] (map-y-or-n-p): Handle exit-prefix as definition of char. --- lisp/map-ynp.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 2.39.5