From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 14 Jan 2009 12:06:34 +0000 (+0000)
Subject: * international/mule-diag.el (print-list): Fix 2008-12-03 change.
X-Git-Tag: emacs-pretest-23.0.90~468
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ecbe9da5b7fb8e7e6ab63222823bca213cef1955;p=emacs.git

* international/mule-diag.el (print-list): Fix 2008-12-03 change.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 452162ee432..07827e45773 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-01-14  Juanma Barranquero  <lekktu@gmail.com>
+
+	* international/mule-diag.el (print-list): Fix 2008-12-03 change.
+
 2009-01-14  Martin Rudalics  <rudalics@gmx.at>
 
 	* frame.el (special-display-popup-frame): Rewrite doc-string and
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index ac6b7c88b3d..50b8022cc72 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -38,7 +38,7 @@
 
 (defun print-list (&rest args)
   "Print all arguments with single space separator in one line."
-  (princ (mapconcat #'identity args " "))
+  (princ (mapconcat (lambda (arg) (prin1-to-string arg t)) args " "))
   (princ "\n"))
 
 ;;; CHARSET