From 2456bb63ba84813ffb3c6c17d218429099becc25 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 12 Jun 2008 20:43:03 +0000 Subject: (map-y-or-n-p): Accept non-char events. --- lisp/emacs-lisp/map-ynp.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'lisp/emacs-lisp/map-ynp.el') diff --git a/lisp/emacs-lisp/map-ynp.el b/lisp/emacs-lisp/map-ynp.el index 0820c5c1e4d..ec173d1197b 100644 --- a/lisp/emacs-lisp/map-ynp.el +++ b/lisp/emacs-lisp/map-ynp.el @@ -112,10 +112,9 @@ Returns the number of actions taken." use-menus t mouse-event last-nonmenu-event)) (setq user-keys (if action-alist - (concat (mapconcat (function - (lambda (elt) - (key-description - (char-to-string (car elt))))) + (concat (mapconcat (lambda (elt) + (key-description + (vector (car elt)))) action-alist ", ") " ") "") -- cgit v1.2.3