summaryrefslogtreecommitdiff
path: root/lisp/international/mule-diag.el
diff options
context:
space:
mode:
authorKenichi Handa <handa@m17n.org>2010-09-27 13:52:56 +0900
committerKenichi Handa <handa@m17n.org>2010-09-27 13:52:56 +0900
commit368b3544429556ff4c536b8f1d7d896f4a8e1787 (patch)
treed22f90c0477ee644c59f68dba2f469a6086eda6a /lisp/international/mule-diag.el
parent42d3022b00d62a27b9f3820b84032b92ac0b0363 (diff)
downloademacs-368b3544429556ff4c536b8f1d7d896f4a8e1787.tar.gz
international/mule-diag.el (describe-character-set): Use princ with proper print-length and print-level instead of insert.
Diffstat (limited to 'lisp/international/mule-diag.el')
-rw-r--r--lisp/international/mule-diag.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index a809b60da7f..ed2f7e33a4c 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -368,7 +368,8 @@ meanings of these arguments."
(when val
(if (cadr elt) (insert (cadr elt)))
(if (nth 2 elt)
- (insert (funcall (nth 2 elt) val)))
+ (let ((print-length 10) (print-level 2))
+ (princ (funcall (nth 2 elt) val) (current-buffer))))
(insert ?\n)))))))
;;; CODING-SYSTEM