Mercurial > emacs

comparison lisp/international/mule-diag.el @ 110618:7019133063c8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
international/mule-diag.el (describe-character-set): Use princ with proper print-length and print-level instead of insert.
author Kenichi Handa <handa@m17n.org>
date Mon, 27 Sep 2010 13:52:56 +0900
parents 1d1d5d9bd884
children 376148b31b5e
comparison
equal deleted inserted replaced
110617:4e2238ed599f 110618:7019133063c8
366 "Used only as a parent of some other charset." nil))) 366 "Used only as a parent of some other charset." nil)))
367 (let ((val (get-charset-property charset (car elt)))) 367 (let ((val (get-charset-property charset (car elt))))
368 (when val 368 (when val
369 (if (cadr elt) (insert (cadr elt))) 369 (if (cadr elt) (insert (cadr elt)))
370 (if (nth 2 elt) 370 (if (nth 2 elt)
371 (insert (funcall (nth 2 elt) val))) 371 (let ((print-length 10) (print-level 2))
372 (princ (funcall (nth 2 elt) val) (current-buffer))))
372 (insert ?\n))))))) 373 (insert ?\n)))))))
373 374
374 ;;; CODING-SYSTEM 375 ;;; CODING-SYSTEM
375 376
376 (defvar graphic-register) ; dynamic bondage 377 (defvar graphic-register) ; dynamic bondage