# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1022881987 0
# Node ID c712966df91c884e207ed01a8d17897af756917a
# Parent  dca7b491d37e0048842cfc6886e1bb2ecef5e7e5
(charset-chars): Add optional dimension arg.
(unify-8859-on-encoding-mode, unify-8859-on-decoding-mode): Moved
to mule-cmds.el.

diff -r dca7b491d37e -r c712966df91c lisp/international/mule.el
--- a/lisp/international/mule.el	Fri May 31 13:04:49 2002 +0000
+++ b/lisp/international/mule.el	Fri May 31 21:53:07 2002 +0000
@@ -310,10 +310,13 @@
   "Return dimension string of CHARSET."
   (plist-get (charset-plist charset) :dimension))
 
-(defun charset-chars (charset)
-  "Return character numbers contained in a dimension of CHARSET."
+(defun charset-chars (charset &optional dimension)
+  "Return character numbers contained in DIMENSION of CHARSET.
+DIMENSION defaults to the first dimension."
+  (unless dimension (setq dimension 1))
   (let ((code-space (plist-get (charset-plist charset) :code-space)))
-    (1+ (- (aref code-space 1) (aref code-space 0)))))
+    (1+ (- (aref code-space (1- (* 2 dimension)))
+	   (aref code-space (- (* 2 dimension) 2))))))
 
 (defun charset-iso-final-char (charset)
   "Return final char of CHARSET."
@@ -1513,17 +1516,6 @@
 	   (progn ,@body)
 	 (set-category-table ,current-category-table)))))
 
-;; Backwards compatibility.  These might be better with :init-value t,
-;; but that breaks loadup.
-(define-minor-mode unify-8859-on-encoding-mode
-  "Obsolete."
-  :group 'mule
-  :global t)
-(define-minor-mode unify-8859-on-decoding-mode
-  "Obsolete."
-  :group 'mule
-  :global t)
-
 ;;; Initialize some variables.
 
 (put 'use-default-ascent 'char-table-extra-slots 0)