andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

international/mule-diag.el (describe-character-set): Use princ with proper print-length and print-level instead of insert.

Browse source
This commit is contained in:
Kenichi Handa 2010-09-27 13:52:56 +09:00
parent 42d3022b00
commit 368b354442
3 changed files with 18 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -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).

3
lisp/international/mule-diag.el
View file

@ -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

17
lisp/international/mule.el
View file

@ -642,18 +642,19 @@ VALUE must be a translation table to use on encoding.
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'