diff options
author | Kenichi Handa <handa@m17n.org> | 2010-09-27 13:52:56 +0900 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 2010-09-27 13:52:56 +0900 |
commit | 368b3544429556ff4c536b8f1d7d896f4a8e1787 (patch) | |
tree | d22f90c0477ee644c59f68dba2f469a6086eda6a /lisp/international/mule-diag.el | |
parent | 42d3022b00d62a27b9f3820b84032b92ac0b0363 (diff) | |
download | emacs-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.el | 3 |
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 |