diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-06-12 20:43:03 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-06-12 20:43:03 +0000 |
| commit | 2456bb63ba84813ffb3c6c17d218429099becc25 (patch) | |
| tree | e8ec90eb026496f0e3167bb44cdea47338917fdb /lisp/emacs-lisp/map-ynp.el | |
| parent | 2afc21f5f6d8963301913c5aed515e567b8e3986 (diff) | |
| download | emacs-2456bb63ba84813ffb3c6c17d218429099becc25.tar.gz emacs-2456bb63ba84813ffb3c6c17d218429099becc25.tar.bz2 emacs-2456bb63ba84813ffb3c6c17d218429099becc25.zip | |
(map-y-or-n-p): Accept non-char events.
Diffstat (limited to 'lisp/emacs-lisp/map-ynp.el')
| -rw-r--r-- | lisp/emacs-lisp/map-ynp.el | 7 |
1 files changed, 3 insertions, 4 deletions
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 ", ") " ") "") |