[Emacs-diffs] emacs/lisp ChangeLog international/mule-diag.el

[Juanma Barranquero]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      09/01/14 12:06:40

Modified files:
        lisp           : ChangeLog 
        lisp/international: mule-diag.el 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15104&r2=1.15105
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/international/mule-diag.el?cvsroot=emacs&r1=1.123&r2=1.124

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15104
retrieving revision 1.15105
diff -u -b -r1.15104 -r1.15105
--- ChangeLog   14 Jan 2009 10:14:40 -0000      1.15104
+++ ChangeLog   14 Jan 2009 12:06:34 -0000      1.15105
@@ -1,3 +1,7 @@
+2009-01-14  Juanma Barranquero  <address@hidden>
+
+       * international/mule-diag.el (print-list): Fix 2008-12-03 change.
+
 2009-01-14  Martin Rudalics  <address@hidden>
 
        * frame.el (special-display-popup-frame): Rewrite doc-string and

Index: international/mule-diag.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/international/mule-diag.el,v
retrieving revision 1.123
retrieving revision 1.124
diff -u -b -r1.123 -r1.124
--- international/mule-diag.el  5 Jan 2009 03:22:22 -0000       1.123
+++ international/mule-diag.el  14 Jan 2009 12:06:39 -0000      1.124
@@ -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