From 06deef52bcecc54d593eb36c5498ad5c19f3430b Mon Sep 17 00:00:00 2001
From: Roland McGrath <roland@gnu.org>
Date: Mon, 3 Aug 1992 16:41:27 +0000
Subject: [PATCH] entered into RCS

---
 lisp/map-ynp.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el
index edec2d8c80c..4d3f6f917e7 100644
--- a/lisp/map-ynp.el
+++ b/lisp/map-ynp.el
@@ -89,7 +89,8 @@ the current %s and exit."
 				      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 ", ")
 				" ")
 		      ""))