;ELC   
;;; compiled by nk@localhost.localdomain on Fri Dec  1 22:48:56 2006
;;; from file /home/nk/pkg-build/test/mule-packages/mule-base/chartblxmas.el
;;; emacs version 21.4 (patch 19) "Constant Variable" XEmacs Lucid.
;;; bytecomp version 2.27 XEmacs; 2000-09-12.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 19.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "20")))
    (error "`chartblxmas.el' was compiled for Emacs 20"))

(or (boundp 'current-load-list) (setq current-load-list nil))


(byte-code "ÀÁ!ˆÀÂ!‡" [require alist char-table] 2)
(defalias 'classify-charsets-by-dimension-and-chars #[(charset-list) "Æ«¦@Ç!È!‰·AÉÉ\n\n	·AB	##,A‰¬Z)‡" [dim dim-alist chars charset charset-list dest nil charset-chars charset-dimension put-alist] 8])
#@52 Display character table of CHARSET by pop-up menu.
(defalias 'view-charset-by-menu #[nil "ÆÇÈÉÊËÌ !‰«Á@‰@A‰«®@Í\n@!‰Î‰W«ŒÏQ	T‰ªpÐÑÒP\nA#ˆ,A‰¬R*A‰¬?)Ó\"\"B!‡" [d i p s rest r popup-menu "Character set:" mapcar #[(cat) "@ÁÂÃA\"Ä\"B‡" [cat sort mapcar #[(charset) "ÁÂ!ÃÄDDÅ#‡" [charset vector charset-doc-string view-charset quote t] 5] #[(a b) "	ÂHÂH™‡" [b a 0] 3]] 5] sort classify-charsets-by-dimension-and-chars charset-list int-to-string 1 " x " set-alist dest " character set" #[(a b) "	@@™‡" [b a] 2] n] 10 (#$ . 878) nil])