From 2456bb63ba84813ffb3c6c17d218429099becc25 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Thu, 12 Jun 2008 20:43:03 +0000 Subject: [PATCH] (map-y-or-n-p): Accept non-char events. --- lisp/ChangeLog | 16 +++++++++------- lisp/emacs-lisp/map-ynp.el | 7 +++---- 2 files changed, 12 insertions(+), 11 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 61a8b8f553..c084145546 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,8 +1,11 @@ +2008-06-12 Stefan Monnier + + * emacs-lisp/map-ynp.el (map-y-or-n-p): Accept non-char events. + 2008-06-12 Chong Yidong - * longlines.el (longlines-search-forward) - (longlines-search-backward, longlines-re-search-forward): Use a - smarter search-spaces-regexp. + * longlines.el (longlines-search-forward, longlines-search-backward) + (longlines-re-search-forward): Use a smarter search-spaces-regexp. 2008-06-12 Sam Steingold @@ -11,8 +14,7 @@ 2008-06-12 Chong Yidong - * menu-bar.el (menu-set-font): Renamed x-font-dialog to - x-select-font. + * menu-bar.el (menu-set-font): Rename x-font-dialog to x-select-font. 2008-06-12 Glenn Morris @@ -21,8 +23,8 @@ * term/mac-win.el (x-toolkit-scroll-bars): Check bound. - * progmodes/cperl-mode.el (cperl-info-on-command): Use - display-pixel-height rather than x-display-pixel-height. + * progmodes/cperl-mode.el (cperl-info-on-command): + Use display-pixel-height rather than x-display-pixel-height. * mail/rmailedit.el (rmail-cease-edit): * vc-dispatcher.el (vc-dir-mode): Check tool-bar-mode is bound. diff --git a/lisp/emacs-lisp/map-ynp.el b/lisp/emacs-lisp/map-ynp.el index 0820c5c1e4..ec173d1197 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 ", ") " ") "") -- 2.39.2