Mercurial > emacs
changeset 88700:c712966df91c
(charset-chars): Add optional dimension arg.
(unify-8859-on-encoding-mode, unify-8859-on-decoding-mode): Moved
to mule-cmds.el.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Fri, 31 May 2002 21:53:07 +0000 |
| parents | dca7b491d37e |
| children | c68f88e42678 |
| files | lisp/international/mule.el |
| diffstat | 1 files changed, 6 insertions(+), 14 deletions(-) [+] |
line wrap: on
line diff
--- 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)