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

diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el
index 0f57c8606b5feca62e2a15ad701e7e4eb533337f..586c31e5b8052099f4bed138748c1c598b8a6d34 100644 (file)
--- 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