# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1022718754 0
# Node ID e574f078b30d2789b121b2b267b34d9759f99ddb
# Parent  ef0a5262fd5e0bacd7c424d83b35abed8435f696
(define-charset): New args :min-code and :max-code.

diff -r ef0a5262fd5e -r e574f078b30d lisp/international/mule.el
--- a/lisp/international/mule.el	Thu May 30 00:32:05 2002 +0000
+++ b/lisp/international/mule.el	Thu May 30 00:32:34 2002 +0000
@@ -75,6 +75,20 @@
 where MIN-N is the minimum byte value of Nth dimension of code-point,
 MAX-N is the maximum byte value of that.
 
+`:min-code'
+
+VALUE must be an integer specifying the mininum code point of the
+charset.  If omitted, it is calculated from `:code-space'.  VALUE may
+be a cons (HIGH . LOW), where HIGH is the most significant 16 bits of
+the code point and LOW is the least significant 16 bits.
+
+`max-code'
+
+VALUE must be an integer specifying the maxinum code point of the
+charset.  If omitted, it is calculated from `:code-space'.  VALUE may
+be a cons (HIGH . LOW), where HIGH is the most significant 16 bits of
+the code point and LOW is the least significant 16 bits.
+
 `:iso-final-char'
 
 VALUE must be a character in the range 32 to 127 (inclusive)
@@ -151,6 +165,8 @@
 attribute."
   (let ((attrs (mapcar 'list '(:dimension
 			       :code-space
+			       :min-code
+			       :max-code
 			       :iso-final-char
 			       :iso-revision-number
 			       :emacs-mule-id