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