From: Kenichi Handa <handa@m17n.org>
Date: Fri, 6 Feb 2004 11:13:07 +0000 (+0000)
Subject: (list-charset-chars): Put charset text property.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1541
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4a64ad459ed968312bfde2d63274c8dbdca42ed4;p=emacs.git

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

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 0f57c8606b5..586c31e5b80 100644
--- a/lisp/international/mule-diag.el
+++ b/lisp/international/mule-diag.el
@@ -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