*** emacs-21.3/lisp/map-ynp.el.orig	Sun Jul 15 10:15:34 2001
--- emacs-21.3/lisp/map-ynp.el	Tue Jun 17 08:41:54 2003
***************
*** 207,214 ****
  					objects)
  				(mapconcat (function
  					    (lambda (elt)
! 					      (format "%c to %s"
! 						      (nth 0 elt)
  						      (nth 2 elt))))
  					   action-alist
  					   ";\n")
--- 207,216 ----
  					objects)
  				(mapconcat (function
  					    (lambda (elt)
! 					      (format "%s to %s"
! 						      (key-description
! 						       (char-to-string
! 							(nth 0 elt)))
  						      (nth 2 elt))))
  					   action-alist
  					   ";\n")