# HG changeset patch
# User Roland McGrath <roland@gnu.org>
# Date 712860087 0
# Node ID e18a3f6689a95d989e86607dcec0dac7d35c43b8
# Parent  4fba6d4b6a28e65f4460060f553a696b1c5d2b45
entered into RCS

diff -r 4fba6d4b6a28 -r e18a3f6689a9 lisp/map-ynp.el
--- a/lisp/map-ynp.el	Mon Aug 03 03:44:51 1992 +0000
+++ b/lisp/map-ynp.el	Mon Aug 03 16:41:27 1992 +0000
@@ -89,7 +89,8 @@
 				      action object))))
 	 (user-keys (if action-alist
 			(concat (mapconcat (lambda (elt)
-					     (char-to-string (car elt)))
+					     (key-description
+					      (char-to-string (car elt))))
 					   action-alist ", ")
 				" ")
 		      ""))