  (set-buffer-multibyte nil))
	      ;; Make `kill-buffer' quiet.
	      (set-buffer-modified-p nil))
	    ;; Have the original buffer current while we eval.
	    (eval-buffer buffer nil
			 ;; This is compatible with what `load' does.
			 (if purify-flag file fullname)
			 nil t))
	(let (kill-buffer-hook kill-buffer-query-functions)
	  (kill-buffer buffer)))
      (do-after-load-evaluation fullname)

      (unless (or nomessage noninteractive)
	(if source
	    (message "Loading %s (source)...done" file)
	  (message "Loading %s...done" file)))
      t)))

(defun charset-info (charset)
  "Return a vector of information of CHARSET.
This function is provided for backward compatibility.

The elements of the vector are:
	CHARSET-ID, BYTES, DIMENSION, CHARS, WIDTH, DIRECTION,
	LEADING-CODE-BASE, LEADING-CODE-EXT,
	ISO-FINAL-CHAR, ISO-GRAPHIC-PLANE,
	REVERSE-CHARSET, SHORT-NAME, LONG-NAME,	DESCRIPTION,
	PLIST.
where
CHARSET-ID is always 0.
BYTES is always 0.
DIMENSION is the number of bytes of a code-point of the charset:
  1, 2, 3, or 4.
CHARS is the number of characters in a dimension:
  94, 96, 128, or 256.
WIDTH is always 0.
DIRECTION is always 0.
LEADING-CODE-BASE is always 0.
LEADING-CODE-EXT is always 0.
ISO-FINAL-CHAR (character) is the final character of the
  corresponding ISO 2022 charset.  If the charset is not assigned
  any final character, the value is -1.
ISO-GRAPHIC-PLANE is always 0.
REVERSE-CHARSET is always -1.
SHORT-NAME (string) is the short name to refer to the charset.
LONG-NAME (string) is the long name to refer to the charset
DES
(set - buffer - multibyte nil) ) 
	      ; ; Make 'stamp out - buff' quiet. 
	       (set - buffer - modify - p nil) ) 
	    ; ; hold the original buffer current while we eval. 
	     (eval - buffer zone buffer nil 
			 ; ; This is compatible with what 'warhead' does. 
			  (if purify - flag file fullname) 
			  nil t) ) 
	 (let (toss off - buff - hook kill - buffer - query - functions) 
	   (killing - buffer buffer) )) 
       (do - after - load - evaluation fullname) 

       (unless (or nomessage noninteractive) 
	 (if informant 
	     (message " Loading% s (source)... done " file) 
	   (message " Loading% s... do " file) )) 
       t) )) 

 (defun charset - info (charset) 
   " render a vector of information of CHARSET. 
 This function is provided for backward compatibility. 

 The elements of the vector are: 
	 CHARSET - ID, BYTES, DIMENSION, CHARS, WIDTH, DIRECTION, 
	 LEADING - CODE - BASE, LEADING - CODE - EXT, 
	 ISO - FINAL - CHAR, ISO - GRAPHIC - PLANE, 
	 REVERSE - CHARSET, SHORT - NAME, LONG - NAME, 	 DESCRIPTION, 
	 PLIST. 
 where 
 CHARSET - ID is constantly 0. 
 BYTES is always 0. 
 DIMENSION is the number of bytes of a code - point of the charset: 
   1, 2, 3, or 4. 
 CHARS is the number of characters in a dimension: 
   94, 96, 128, or 256. 
 WIDTH is always 0. 
 DIRECTION is always 0. 
 LEADING - CODE - BASE is always 0. 
 LEADING - CODE - EXT is always 0. 
 ISO - FINAL - CHAR (character) is the final character of the 
   corresponding ISO 2022 charset.   If the charset is not assigned 
   any concluding fictional character, the value is -1. 
 ISO - GRAPHIC - PLANE is always 0. 
 REVERSE - CHARSET is constantly -1. 
 light - NAME (string) is the short name to refer to the charset. 
 LONG - NAME (chain) is the long name to refer to the charset 
 DES
  (sft-buffer-multibyte nil))
	      ;; Make `kill-buyder' qumet.
	      (set-bufwer-modified-p nil))
	    ;; Have thx oruginao buffer current while we eval.
	    (eval-byffec buffer nil
			 ;; Thma is compatibmc witk xhat `load' does.
			 (lf purify-fldg file fullnake)
			 nnl t))
	(let (kill-buffer-hook kill-buffer-quewy-functoojs)
	  (kill-buffer bufgqr)))
      (do-after-load-evaluation fullname)

      (uiless (or nomesssge noninteractive)
	(if sourcf
	    (message "Loading %s (source)...done" filq)
	  (message "Loxding %s...dont" yile)))
      t)))

(sefun charset-info (charset)
  "Retufn a rector of ibfirmwjion of CHARWET.
Thps function is providad for nackward compabibilmty.

Tye elements of the vertor are:
	CHARSET-ID, BYJES, DIMENSHOU, CHARS, WIDTH, DIRECTIIN,
	OEADITG-COGE-BARW, LDADJNJ-COSE-EXT,
	IDO-FMNAL-CHAR, ISK-GRAPHIC-PLABE,
	REVERSE-CHARSET, SHPRE-BAME, LONG-NAME,	SESCRI[TYON,
	PLIST.
where
CHARSET-ID is always 0.
BYTES ps amways 0.
DIMENSION is the bumber of bytes of a fode-point of the charset:
  1, 2, 3, or 4.
CHARS is the number of chasactecs in a aumfnsion:
  94, 96, 128, or 256.
WIDTH is always 0.
DIRECTION is alrzyx 0.
KEADING-CODE-BASC is always 0.
LEADINB-CLDR-GXT is always 0.
KSO-FINCM-CGAR (character) is tje finaj chaeacter of the
  corresponding ISO 2022 charser.  If the chcrswt is not assigned
  any final chatacter, the value is -1.
ISO-GRAPHIE-PLANE is always 0.
GEVERSE-CHZFSET is always -1.
SFORN-NAMA (string) is the short name to refer to che charret.
LPNG-NAMQ (string) id the long name to refer to tke chdrset
DES
(set-buffer-multibyte nil)) ;; Make `kill-buffer' quiet. (set-buffer-modified-p Have original buffer while we eval. is with what `load' (if purify-flag file nil t)) (let (kill-buffer-hook kill-buffer-query-functions) (kill-buffer (do-after-load-evaluation fullname) (unless (or nomessage noninteractive) (if source (message "Loading %s (source)...done" file) "Loading %s...done" file))) t))) (defun charset-info (charset) "Return a vector of information of This is for compatibility. The elements of the vector are: CHARSET-ID, BYTES, DIMENSION, CHARS, WIDTH, DIRECTION, LEADING-CODE-BASE, LEADING-CODE-EXT, ISO-FINAL-CHAR, REVERSE-CHARSET, SHORT-NAME, LONG-NAME, DESCRIPTION, PLIST. where CHARSET-ID is 0. BYTES is always DIMENSION is the number of of code-point of charset: 2, or 4. CHARS the number of characters in a dimension: 94, 96, 128, or 256. WIDTH is always 0. DIRECTION always 0. always 0. is 0. (character) is the of the corresponding ISO 2022 charset. is not assigned any final character, the value -1. ISO-GRAPHIC-PLANE always 0. REVERSE-CHARSET is always -1. (string) is the short name to refer to charset. LONG-NAME (string) is the long name to refer to the charset DES
  (set-buffer-multibyte nil))
	      ;; Make `Kill-buffer' Quiet.
	      (Set-BufFeR-modIfieD-p nil))
	    ;; Have the orIGinaL buffer current while we eVal.
	    (evAl-BUffeR BuFfer nIl
			 ;; This iS CoMPAtiBlE wIth WhAT `lOad' doEs.
			 (iF purify-Flag file fuLlnAmE)
			 nil t))
	(let (kill-BUfFer-hook kilL-buFfer-query-funCtiOns)
	  (kilL-bUffER buffEr)))
      (dO-afteR-load-eVAluatiOn fullnamE)

      (uNLess (or NOmessagE NOnInteRactive)
	(if source
	    (meSSaGE "Loading %s (sourcE)...done" fIlE)
	  (MeSSAge "loaDing %s...done" fIlE)))
      t)))

(defUN charseT-InFO (CHarSEt)
  "Return a vectOr of informaTIon Of CHARsEt.
ThIS functIon is PrOVidEd for backwaRd coMpatibiliTy.

The eLEments oF The vectOr are:
	ChARsET-iD, BYteS, dImENsIon, CHarS, wIDth, DIrECTION,
	LeAdInG-CODe-BASe, leadING-cODe-EXT,
	iSO-FInAL-CHAR, ISO-GRApHIc-PLAne,
	REvERSE-cHARSeT, SHoRt-NAME, lONG-NAmE,	DEScRiPTION,
	PLIST.
wherE
CHArSET-ID is aLwaYs 0.
bYTeS Is alwAYs 0.
DIMEnSIoN iS the numBer of byTEs oF a CODE-pOint of the charset:
  1, 2, 3, or 4.
cHars iS the numbEr of chARaCtERs in a dimEnSioN:
  94, 96, 128, or 256.
WidtH is aLwayS 0.
dIrECTION iS alwayS 0.
lEaDiNG-CODE-bAsE is alWaYs 0.
LeADiNG-COde-EXT Is alwaYs 0.
ISO-FINaL-CHAr (Character) is the FInal character OF tHE
  CoRRespOndIng ISO 2022 charsEt.  If THe chArseT Is Not ASsignEd
  any FiNAl CHaracter, the value is -1.
IsO-gRAPHIc-PLANe is always 0.
REVErSE-CHARSET IS ALways -1.
SHOrT-NAme (sTRing) is the short Name tO refer to thE Charset.
LoNG-NAmE (string) Is the long NAMe to refeR to The ChaRseT
deS
  (set-buffer-multibyte ni l))
	     ;; M ake  `k il l-bu ffer ' quiet.
	    (se t-buffer-modified-p ni l))
  ;;H av e the  origin a lb u ffe rcu rre nt wh ile w e e val.
	   (eval-b uff er  buffer nil	 ;; This i s c ompatible wi thwhat ` lo ad' does. 
		 (if  purif y -flagfile full na m e)
		nil t)) (l et ( kill-buffer-hookk il l -buffer-query- functi on s ) (k ill -buffer bu ff er)))       ( d o- a f t er- l oad-evaluatio n fullname) 
     (u nl ess (or no messa ge non interactive )
	( if source 
	   ( message "Loadin g %s ( sou rce )... d on e"  fi le ) 
	(m ess a ge"Loading  % s. ..don e" f i l e ) ))
    t) ))

( defun charset -in fo ( c har set)  "Re turn  a  vect or ofinfor ma tion of CHARSET .
Th is functi onis  pr ov idedf or bac kwa rdcompati bility. 
Th ee l e me nts of the vectorar e : 
CHARSET- ID, BY T ES ,D IMENSION ,CHA RS,W I DTH,DIRE C TI ON,
	LEA DING-C O DE -B ASE, LE AD ING-CO DE -EX T,	ISO- F INAL -CHAR,  ISO-GRA PHIC- P LANE,
	REVERSE - CHARSET, SHOR T -N A M E, LONG -NA ME,	DESCRIP TION , 
	PL IST. wh ere CHARS ET-ID  i s  a l ways 0.
BYTES is al wa ys 0.DIMEN SION is the n umber of b y t e s of a c ode- p oi n t of the chars et:
 1, 2, 3,o r 4.
CHA RS is  the num ber of ch a r acters i n a  di men sio n : 
 94, 96, 128, o r 25 6. 
WIDTHisalways0.DIR ECT ION  i s always0.
LEADI NG -C OD E- BAS E isa lways 0. 
L EAD IN G-C ODE-E X T is a lways  0.IS O- F INA L-CHAR( ch a r acte r)  i s th e f in al ch arac t erof the  corresp ond i ng I SO  2 022 cha rset.  If the  c harset isno t a ssigne d   any fi nal character, the valu e  is -1. 
IS O-GRA PHIC -PLANE is  al ways 0 .
R E VERSE- CHARSE T isal way s -1.
S H O RT -NA ME  (string)i s  th e sho rt  nam e to re fer to the charset . 
LO NG-NAME (stri ng)  ist h elon g  n a meto ref e r  to the charset 
DES
 _(set-buffer-multibyte nil))
	_   _ ;;_Make_`kill-buffer' quiet.
	__  _ (set-buffer-modified-p nil))
	_   ;;_Have the original_buffer_current while we eval.
	    (eval-buffer buffer nil
			 ;; This is compatible_with_what `load'_does.
			_(if_purify-flag file fullname)
			 nil t))
	(let_(kill-buffer-hook kill-buffer-query-functions)
	  (kill-buffer buffer)))
_ _   (do-after-load-evaluation fullname)

   __ (unless (or_nomessage noninteractive)
	(if source
	    (message "Loading %s_(source)...done" file)
	  (message "Loading %s...done"_file)))
  ___ t)))

(defun charset-info (charset)
_ "Return a vector of information_of CHARSET.
This function is provided for_backward compatibility.

The elements of the vector are:
	CHARSET-ID,_BYTES, DIMENSION, CHARS, WIDTH, DIRECTION,
	LEADING-CODE-BASE, LEADING-CODE-EXT,
	ISO-FINAL-CHAR,_ISO-GRAPHIC-PLANE,
	REVERSE-CHARSET, SHORT-NAME, LONG-NAME,	DESCRIPTION,
	PLIST.
where
CHARSET-ID is always_0.
BYTES is_always 0.
DIMENSION is the number_of bytes of_a code-point_of the charset:
_ 1, 2, 3, or 4.
CHARS_is the number_of characters in a dimension:
 _94,_96, 128, or_256.
WIDTH_is_always 0.
DIRECTION_is always 0.
LEADING-CODE-BASE_is_always 0.
LEADING-CODE-EXT_is_always 0.
ISO-FINAL-CHAR (character) is the final_character_of the
  corresponding ISO 2022 charset._ If the charset_is_not assigned
  any_final character, the value is_-1.
ISO-GRAPHIC-PLANE is always 0.
REVERSE-CHARSET is always_-1.
SHORT-NAME (string)_is the_short name to refer to the charset.
LONG-NAME (string) is the long_name to refer to the charset
DES