[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/map-ynp.el,v

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/06/12 20:43:03

Index: emacs-lisp/map-ynp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/map-ynp.el,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -b -r1.16 -r1.17
--- emacs-lisp/map-ynp.el       12 Jun 2008 03:56:18 -0000      1.16
+++ emacs-lisp/map-ynp.el       12 Jun 2008 20:43:03 -0000      1.17
@@ -112,10 +112,9 @@
                use-menus t
                mouse-event last-nonmenu-event))
       (setq user-keys (if action-alist
-                         (concat (mapconcat (function
-                                             (lambda (elt)
+                         (concat (mapconcat (lambda (elt)
                                                (key-description
-                                                (char-to-string (car elt)))))
+                                                (vector (car elt))))
                                             action-alist ", ")
                                  " ")
                        "")