Mercurial > emacs

changeset 89807:9b7ce1c86476

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(list-charset-chars): Put charset text property.
author Kenichi Handa <handa@m17n.org>
date Fri, 06 Feb 2004 11:13:07 +0000
parents 960bd3cc1872
children f16a51fce2f6
files lisp/international/mule-diag.el
diffstat 1 files changed, 4 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/mule-diag.el	Fri Feb 06 11:12:09 2004 +0000
+++ b/lisp/international/mule-diag.el	Fri Feb 06 11:13:07 2004 +0000
@@ -292,6 +292,7 @@
 	(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 @@
 	  (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