(shell-command-on-region):

[gnu-emacs] / lisp / map-ynp.el

diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el
index edec2d8c80cbbaa10b78d714e305176b6f0de1c1..777c1e39614ddb51942379c42bb7783f2b40ad7b 100644 (file)
--- a/lisp/map-ynp.el
+++ b/lisp/map-ynp.el
@@ -77,10 +77,11 @@ DEL or `n' to skip the current %s;
 ! to %s all remaining %s;
 ESC or `q' to exit;\n"
                                      action object object action objects)
-                             (mapconcat (lambda (elt)
-                                          (format "%c to %s"
-                                                  (nth 0 elt)
-                                                  (nth 2 elt)))
+                             (mapconcat (function
+                                         (lambda (elt)
+                                           (format "%c to %s"
+                                                   (nth 0 elt)
+                                                   (nth 2 elt))))
                                         action-alist
                                         ";\n")
                              (if action-alist ";\n")
@@ -88,8 +89,10 @@ ESC or `q' to exit;\n"
 the current %s and exit."
                                      action object))))
         (user-keys (if action-alist
-                       (concat (mapconcat (lambda (elt)
-                                            (char-to-string (car elt)))
+                       (concat (mapconcat (function
+                                           (lambda (elt)
+                                             (key-description
+                                              (char-to-string (car elt)))))
                                           action-alist ", ")
                                " ")
                      ""))