mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-27 07:41:28 -08:00
Code Issues Projects Releases Wiki Activity

(list-charset-chars): Put charset text property.

Browse source
This commit is contained in:
Kenichi Handa 2004-02-06 11:13:07 +00:00
parent d1bd4b129c
commit 4a64ad459e
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -292,6 +292,7 @@ detailed meanings of these arguments."
(if (> dim 2)
(error "Can only list 1- and 2-dimensional charsets"))
(insert (format "Characters in the coded character set %s.\n" charset))
(narrow-to-region (point) (point))
(setq min (aref range 0)
max (aref range 1))
(if (= dim 1)
@ -301,7 +302,9 @@ detailed meanings of these arguments."
(let ((i min2))
(while (<= i max2)
(list-block-of-chars charset i min max)
(setq i (1+ i)))))))))
(setq i (1+ i)))))
(put-text-property (point-min) (point-max) 'charset charset)
(widen)))))
;;;###autoload