Mercurial > emacs
changeset 110618:7019133063c8
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 | 4e2238ed599f |
| children | 75fb6d1241c3 cdab39f69698 |
| files | lisp/ChangeLog lisp/international/mule-diag.el lisp/international/mule.el |
| diffstat | 3 files changed, 18 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- 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).
--- 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
--- 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'