From ecbe9da5b7fb8e7e6ab63222823bca213cef1955 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 14 Jan 2009 12:06:34 +0000 Subject: [PATCH] * international/mule-diag.el (print-list): Fix 2008-12-03 change. --- lisp/ChangeLog | 4 ++++ lisp/international/mule-diag.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + + * international/mule-diag.el (print-list): Fix 2008-12-03 change. + 2009-01-14 Martin Rudalics * 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 -- 2.39.2