[Emacs-diffs] /srv/bzr/emacs/emacs-23 r100060: international/mule-diag.el (describe-character-set): Use princ with proper print-length and print-level instead of insert.

[Kenichi Handa]

------------------------------------------------------------
revno: 100060 [merge]
committer: Kenichi Handa <address@hidden>
branch nick: emacs-23
timestamp: Mon 2010-09-27 13:53:47 +0900
message:
  international/mule-diag.el (describe-character-set): Use princ with proper 
print-length and print-level instead of insert.
modified:
  lisp/ChangeLog
  lisp/international/mule-diag.el
  lisp/international/mule.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-09-26 00:37:50 +0000
+++ b/lisp/ChangeLog    2010-09-27 04:52:56 +0000
@@ -1,3 +1,10 @@
+2010-09-27  Kenichi Handa  <address@hidden>
+
+       * 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  <address@hidden>
 
        * window.el (walk-windows): Doc fix (bug#7105).

=== modified file 'lisp/international/mule-diag.el'
--- a/lisp/international/mule-diag.el   2010-01-13 08:35:10 +0000
+++ b/lisp/international/mule-diag.el   2010-09-27 04:52:56 +0000
@@ -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

=== modified file 'lisp/international/mule.el'
--- a/lisp/international/mule.el        2010-08-06 08:11:19 +0000
+++ b/lisp/international/mule.el        2010-09-27 04:52:56 +0000
@@ -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'