# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1285563176 -32400
# Node ID 7019133063c84f510b1c29cce1c5376e477d51a8
# Parent  4e2238ed599f0a650126d456a08bff5c6cb01c5f
international/mule-diag.el (describe-character-set): Use princ with proper print-length and print-level instead of insert.

diff -r 4e2238ed599f -r 7019133063c8 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Sep 26 17:39:10 2010 +0200
+++ b/lisp/ChangeLog	Mon Sep 27 13:52:56 2010 +0900
@@ -1,3 +1,10 @@
+2010-09-27  Kenichi Handa  <handa@m17n.org>
+
+	* international/mule.el (define-coding-system): Docstring fixed.
+
+	* international/mule-diag.el (describe-character-set): Use princ
+	with proper print-length and print-level instead of insert.
+
 2010-09-26  Juanma Barranquero  <lekktu@gmail.com>
 
 	* window.el (walk-windows): Doc fix (bug#7105).
diff -r 4e2238ed599f -r 7019133063c8 lisp/international/mule-diag.el
--- a/lisp/international/mule-diag.el	Sun Sep 26 17:39:10 2010 +0200
+++ b/lisp/international/mule-diag.el	Mon Sep 27 13:52:56 2010 +0900
@@ -368,7 +368,8 @@
 	  (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
diff -r 4e2238ed599f -r 7019133063c8 lisp/international/mule.el
--- a/lisp/international/mule.el	Sun Sep 26 17:39:10 2010 +0200
+++ b/lisp/international/mule.el	Mon Sep 27 13:52:56 2010 +0900
@@ -642,18 +642,19 @@
 
 VALUE must be a function to call after some text is inserted and
 decoded by the coding system itself and before any functions in
-`after-insert-functions' are called.  The arguments to this function
-are the same as those of a function in `after-insert-file-functions',
-i.e. LENGTH of the text to be decoded with point at the head of it,
-and the function should leave point unchanged.
+`after-insert-functions' are called.  This function is passed one
+argument; the number of characters in the text to convert, with
+point at the start of the text.  The function should leave point
+the same, and return the new character count.
 
 `:pre-write-conversion'
 
 VALUE must be a function to call after all functions in
-`write-region-annotate-functions' and `buffer-file-format' are called,
-and before the text is encoded by the coding system itself.  The
-arguments to this function are the same as those of a function in
-`write-region-annotate-functions'.
+`write-region-annotate-functions' and `buffer-file-format' are
+called, and before the text is encoded by the coding system
+itself.  This function should convert the whole text in the
+current buffer.  For backward compatibility, this funciton is
+passed two arguments which can be ignored.
 
 `:default-char'