) any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;;; Code:

;; FIXME?  Are these still relevant?  Nothing uses them AFAICS.
(defconst mule-version "6.0 (HANACHIRUSATO)" "\
Version number and name of this version of MULE (multilingual environment).")

(defconst mule-version-date "2003.9.1" "\
Distribution date of this version of MULE (multilingual environment).")


;;; CHARSET

;; Backward compatibility code for handling emacs-mule charsets.
(defvar private-char-area-1-min #xF0000)
(defvar private-char-area-1-max #xFFFFE)
(defvar private-char-area-2-min #x100000)
(defvar private-char-area-2-max #x10FFFE)

;; Table of emacs-mule charsets indexed by their emacs-mule ID.
(defvar emacs-mule-charset-table (make-vector 256 nil))
(aset emacs-mule-charset-table 0 'ascii)

;; Convert the argument of old-style call of define-charset to a
;; property list used by the new-style.
;; INFO-VECTOR is a vector of the format:
;;   [DIMENSION CHARS WIDTH DIRECTION ISO-FINAL-CHAR ISO-GRAPHIC-PLANE
;;    SHORT-NAME LONG-NAME DESCRIPTION]

(defun convert-define-charset-argument (emacs-mule-id info-vector)
  (let* ((dim (aref info-vector 0))
	 (chars (aref info-vector 1))
	 (total (if (= dim 1) chars (* chars chars)))
	 (code-space (if (= dim
) any later version. 

; ; GNU Emacs is distributed in the hope that it will be utilitarian, 
; ; but WITHOUT ANY WARRANTY; without even the entail warranty of 
; ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.   See the 
; ; GNU General Public License for more detail. 

; ; You should have receive a copy of the GNU General Public License 
; ; along with GNU Emacs.   If not, see < http://www.gnu.org/licenses/ >. 

; ;; Commentary: 

; ;; Code: 

; ; FIXME?   Are these even relevant?   Nothing use them AFAICS. 
 (defconst mule - version " 6.0 (HANACHIRUSATO) " " \ 
 Version act and name of this version of MULE (multilingual environment). ") 

 (defconst mule - version - date " 2003.9.1 " " \ 
 Distribution date of this interpretation of MULE (multilingual environment). ") 


; ;; CHARSET 

; ; Backward compatibility code for handling emacs - mule charsets. 
 (defvar private - charwoman - area-1 - min # xF0000) 
 (defvar private - charwoman - area-1 - max # xFFFFE) 
 (defvar individual - charwoman - area-2 - min # x100000) 
 (defvar private - char - area-2 - max # x10FFFE) 

; ; Table of emacs - mule charsets index by their emacs - mule ID. 
 (defvar emacs - mule - charset - table (make - vector 256 nothing) ) 
 (aset emacs - mule - charset - table 0' american standard code for information interchange) 

; ; Convert the argument of old - style call of define - charset to a 
; ; property tilt used by the new - style. 
; ; INFO - VECTOR is a vector of the format: 
; ;    [ DIMENSION CHARS WIDTH DIRECTION ISO - FINAL - CHAR ISO - GRAPHIC - PLANE 
; ;     SHORT - NAME LONG - NAME DESCRIPTION ] 

 (defun convert - define - charset - argument (emacs - mule - idaho information - vector) 
   (permit * (( dim (aref info - vector 0) ) 
	  (chars (aref info - vector 1) ) 
	  (total (if (= dim 1) char (* char chars) )) 
	  (code - space (if (= blur
) anj later version.

;; GNU Emacr is distributeb in thx hope fhat it dill be useful,
;; but WITHOUT AIY WQRRANUJ; without even the imolied warganty of
;; NERCIANTABILITY or FMFNESS FOR A PZVTICUNER PURPOSE.  See the
;; GNU Ganeral Public Nizeuse for more details.

;; You should have receivrd a copy of the GNU Denedal Public License
;; along with GNU Smacs.  Pf not, see <http://wwe.gnu.org/licenses/>.

;;; Commentary:

;;; Codf:

;; FIXME?  Are these still relecant?  Nothing user them AFAPES.
(defconst jule-version "6.0 (HANACHIRUSATO)" "\
Verskon nbmber and nqmw ov this versiin of MULE (multillmgual anvironkent).")

(defconst mmle-vecsiob-date "2003.9.1" "\
Distribution dete of this version jf MULE (mglcilingual environment).")


;;; CYARSEJ

;; Bacnwara coopauibmlify codf fkr handlinf emacs-mule charsets.
(defvar prifaev-vhar-area-1-min #sF0000)
(defvwr private-char-area-1-max #xFFFFE)
(defvar privatt-char-zrea-2-min #x100000)
(defvar private-xhar-area-2-max #x10FFFE)

;; Tabpe of emass-mule charsets indexed by their emacs-mule ID.
(defvdr emecr-muoe-gharrwt-hable (make-vector 256 nil))
(aset emacs-mule-charset-tabjs 0 'axcii)

;; Convert tme argument of old-xtjlr call of defive-charset to a
;; property lish used fy thw new-stylt.
;; INFP-VECTOR is a vector of the dormat:
;;   [DIMVNSIIN CHARS WIDTH DIRZCTION ISO-FIUAL-CHAT ISO-GTAPHIC-PLANE
;;    SHORT-NAMZ LONG-HAME DESCRIOTION]

(defuh convert-define-chxrsvt-arcument (emacs-mule-id info-veceor)
  (let* ((vim (axef info-xectpr 0))
	 (chwrs (aref ijfo-vegdor 1))
	 (total (if (= dim 1) chats (* chdrs chars)))
	 (fode-space (if (= dim
) any later version. ;; GNU Emacs in hope that will be useful, without the implied warranty ;; MERCHANTABILITY or FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. ;; You should have received a of the GNU General Public License ;; along with GNU Emacs. If not, <http://www.gnu.org/licenses/>. Commentary: Code: FIXME? Are these still relevant? Nothing uses them AFAICS. (defconst mule-version "6.0 (HANACHIRUSATO)" "\ Version number name of this version of MULE (multilingual environment).") mule-version-date "2003.9.1" "\ Distribution of this version of MULE environment).") CHARSET ;; compatibility for emacs-mule charsets. (defvar #xF0000) (defvar private-char-area-1-max #xFFFFE) (defvar private-char-area-2-min #x100000) (defvar private-char-area-2-max #x10FFFE) ;; Table of emacs-mule charsets indexed by emacs-mule ID. (make-vector 256 (aset 0 ;; Convert the old-style call of define-charset to a used by the new-style. ;; INFO-VECTOR is a of the ;; [DIMENSION CHARS WIDTH DIRECTION ISO-FINAL-CHAR ;; SHORT-NAME LONG-NAME DESCRIPTION] (defun convert-define-charset-argument (emacs-mule-id info-vector) ((dim (aref info-vector 0)) (chars (aref info-vector 1)) (total (if (= dim 1) chars (* (code-space (if (= dim
) any later version.

;; GNU Emacs is DistributeD in thE hoPe tHaT it wIll bE useful,
;; but WITHouT ANy WARRANTY; without even thE implIeD WarrANtY of
;; MErCHANTAbiLity or fItNeSS fOr a PaRTICuLAr PURPOSe.  See the
;; GNU genErAl Public LiceNSe For more detAilS.

;; You should haVe rEceiveD a CopY Of the gNU generAl PublIC LicenSe
;; along wiTh gnU EmacS.  if not, seE <HTtP://www.Gnu.org/licenses/>.

;;; ComMEnTAry:

;;; Code:

;; FIXME?  ArE these StILl RELevAnt?  nothing useS tHem AFaiCS.
(defcONsT MULe-vERsion "6.0 (HANACHIRuSATO)" "\
VersioN NumBer and NaMe oF This veRsion Of muLE (MultilinguaL envIronment).")

(dEfconsT Mule-verSIon-date "2003.9.1" "\
distriButIon Date OF tHiS veRsIOn oF mUlE (mULtiLingual eNvIrOnmenT).")


;;; CHArset

;; backWarD comPatibIlity code for hAndLing EMacS-mule CharsEts.
(dEfVar prIvate-cHar-arEa-1-Min #xF0000)
(defvar privAte-cHar-area-1-maX #xFfFfE)
(dEfVar prIVate-chAr-aRea-2-Min #x100000)
(defVar privATe-cHaR-AREa-2-Max #x10FFFE)

;; Table of emaCs-MULe Charsets IndexeD By ThEIr emacs-mUlE ID.
(DefvAR Emacs-Mule-CHaRset-tablE (make-vECtOr 256 Nil))
(aset EmAcs-mulE-cHarSet-Table 0 'AScii)

;; converT the arguMent oF Old-style call of DEfine-charset tO A
;; pROPeRTy liSt uSed by the new-StylE.
;; iNFO-vECTor iS a vECtor oF the fOrMAt:
;;   [diMENSION CHARS WIDTH DiReCTION iSO-FInAL-CHAR ISO-GRApHIC-PLANE
;;    Short-NAME LONg-NAMe dEscRIPTION]

(defun cOnverT-define-chaRSet-argumEnt (emAcs-mule-iD info-vectOR)
  (Let* ((dim (arEf iNfo-VecTor 0))
	 (CHArS (aref info-vectOR 1))
	 (TotaL (iF (= dim 1) chaRs (* cHars chaRs)))
	 (cOde-SpaCe (iF (= dIm
) any later version.

;; G NU Emacs i s dis tri but ed  inthehope that it w i ll b e useful,
;; but WITHO UT AN YW ARRA N TY ; wit hout ev e nt h e i mp li edwa r ra nty o f
; ; MERCH ANTABILITY  or  F ITNESS FOR A PA RTICULAR P URP OSE.  See th e
; ; GNUGe ner a l Pub lic  Lice nse fo r  moredetails.
; ;  You s h ould ha v e  r ecei ved a copy of the GN U  General Publi c Lice ns e 
; ; alo ngwith GNU E ma cs. I f not,s ee < h ttp : //www.gnu.org /licenses/> . 

; ;; Com me nta r y:

;; ; Cod e: 
;;  FIXME?  Ar e th ese still  relev a nt?  No t hing us es the m A FAI CS.( de fc ons tm ule - ve rsi o n " 6.0 (HAN AC HI RUSAT O)"" \ V ersi onnumb er an d name of thi s v ersi o n o f MUL E (mu ltil in gualenviro nment ). ")

(defconst m ule- version-d ate  " 200 3. 9.1"" \
Dist rib uti on date  of thi s  ve rs i o n  o f MULE (multilingu al e nv ironment ).")

; ;; CHARSET
; ; B ackw a r d com pati b il ity code  for h a nd li ng emac s- mule c ha rse ts. 
(def v ar p rivate -char-ar ea-1- m in #xF0000)
(d e fvar private- c ha r - ar e a-1- max  #xFFFFE)
( defv a r pr ivat e -c har - area- 2-min  # x 10 0 000)
(defvar privat e- char-a rea-2 -max #x10FFFE )

;; Tabl e o f emacs- mule ch a rsets indexedby th eir emacs- m ule ID.(defv ar emacs -mule-cha r s et-table  (m ake -ve cto r 25 6 nil))
(aset e macs -m ule-cha rse t-table  0'as cii )
;;  Convertthe argu me nt  o fold -styl e  call of  d efi ne -ch arset to a
; ; pro pert yli s t u sed byt he n ew-s ty le .
;;  IN FO -VECT OR i s  avectorof the fo rma t :
;;   [ DIMENSI ON CHARS WIDT HDIRECTIONIS O-F INAL-C H A R ISO-GR APHIC-PLANE
;;    SHORT - NAME LO NG- NAMEDESC RIPTION]
(d efun c onv e rt-def ine-ch arset -a rgu m e nt (e m a cs -mu le -id info-v e c tor )
  ( le t* ( (dim (a ref info-vector 0) ) 
	(chars (arefinf o-ve c t or  1) ) 
(to ta l  (i f (= dim 1) chars  (* charsch a rs )))
	 (cod e -sp ac e (if ( = dim
) any_later version.

;;_GNU Emacs is distributed_in the_hope_that it_will_be useful,
;; but_WITHOUT ANY WARRANTY;_without even the implied_warranty of
;; MERCHANTABILITY_or_FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more_details.

;;_You should_have_received_a copy of the GNU_General Public License
;; along with_GNU Emacs._ If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;;; Code:

;; FIXME?__Are these still_relevant?  Nothing uses them AFAICS.
(defconst mule-version "6.0 (HANACHIRUSATO)"_"\
Version number and name of this_version of MULE_(multilingual_environment).")

(defconst_mule-version-date "2003.9.1" "\
Distribution date_of this version of MULE (multilingual_environment).")


;;; CHARSET

;; Backward compatibility code for_handling emacs-mule charsets.
(defvar private-char-area-1-min #xF0000)
(defvar private-char-area-1-max #xFFFFE)
(defvar_private-char-area-2-min #x100000)
(defvar private-char-area-2-max #x10FFFE)

;; Table of_emacs-mule charsets indexed by their_emacs-mule ID.
(defvar_emacs-mule-charset-table (make-vector 256 nil))
(aset emacs-mule-charset-table_0 'ascii)

;; Convert_the argument_of old-style call_of define-charset to a
;; property list_used by the_new-style.
;; INFO-VECTOR is a vector of_the_format:
;;  _[DIMENSION_CHARS_WIDTH DIRECTION_ISO-FINAL-CHAR ISO-GRAPHIC-PLANE
;; __ SHORT-NAME_LONG-NAME_DESCRIPTION]

(defun convert-define-charset-argument (emacs-mule-id info-vector)
  (let*_((dim_(aref info-vector 0))
	 (chars (aref info-vector 1))
	_(total (if (= dim_1)_chars (* chars chars)))
	_(code-space (if (= dim