;ELC ;;; compiled by nk@localhost.localdomain on Fri Dec 1 22:48:55 2006 ;;; from file /home/nk/pkg-build/test/mule-packages/mule-base/char-table.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 "`char-table.el' was compiled for Emacs 20")) (or (boundp 'current-load-list) (setq current-load-list nil)) (require 'mule) ;;;###coding system: escape-quoted (defalias 'char-position-to-string #[(charset r l &optional plane) " \n _\\#\n _\\\"!" [l r charset plane char-to-string make-char 16] 6]) (byte-code "Ns\"#" [char-position-to-string byte-optimizer (nil byte-compile-inline-expand) error "%s already has a byte-optimizer, can't make it inline" put byte-compile-inline-expand] 4) (defalias 'char-table-1 #[(charset r l plane) " \n\n \n _ \\# _ \\\"!,!Z˥ \"UT \"\"Q+" [rp lp plane l r charset char-to-string make-char 16 3 string-width 2 mod 0 make-string ?\ str] 7]) (byte-code "Ns\"#" [char-table-1 byte-optimizer (nil byte-compile-inline-expand) error "%s already has a byte-optimizer, can't make it inline" put byte-compile-inline-expand] 4) (defalias 'insert-94-charset-table #[(charset &optional plane ofs) " \"cc \\_#c͉W  \n  \n_ \\# \n_ \\\"!,!Zʥ\"UT\"\"Q.c Tc)ЉW \\_#cƉW  \n  \n_ \\# \n_ \\\"!,!Zʥ\"UT\"\"Q.c Tc)T \\_#cƉW  \n  \n_ \\# \n_ \\\"!,!Zʥ\"UT\"\"Q.c Tc*" [lp k r l charset plane 0 format "[%02x]$(B("(B 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F\n" "$(B(!(!(+(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(B\n" 2 "%02x%x$(B("(B " 16 1 char-to-string make-char 3 string-width mod make-string ?\ "\n" 7 "%02x%x$(B("(B" 15 rp j str ofs] 8]) (defalias 'insert-96-charset-table #[(charset &optional plane ofs) " \"ccʉW \\_#cƉW   \n  _\n\\# _\n\\\"!,!Zʥ\"UT\"\"Q.cTc) T)" [k r l charset j plane 0 format "[%02x]$(B("(B 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F\n" "$(B(!(!(+(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(!(B\n" 2 8 "%02x%x$(B("(B" 16 char-to-string make-char 3 string-width mod make-string ?\ "\n" lp rp ofs str] 8]) (defalias 'insert-94x94-charset-table #[(charset) "\"ĉWc \" Tn)" [charset i insert-94-charset-table 33 34 127 "$(B(,(,(;(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(B\n"] 4]) (defalias 'insert-96x96-charset-table #[(charset) "\"ĉWc \" Tn)" [charset i insert-96-charset-table 32 33 128 "$(B(,(,(;(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(B\n"] 4]) (defalias 'insert-charset-table #[(charset) "c\n!\n!U U\n! U\n!U U\n! U\n!*c" [cd cc charset "$(B(,(,(8(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(B\n" charset-chars charset-dimension 1 94 insert-94-charset-table 96 insert-96-charset-table 2 insert-94x94-charset-table insert-96x96-charset-table "$(B(,(,(:(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(,(B\n"] 3 "\ Insert character table of CHARSET."]) (defalias 'view-charset #[(charset) " ! !Q !p !q\n #c\n\" ! ! \")!ebq) !*" [the-buf msg desc buf charset charset-doc-string "*Charset table for " "*" get-buffer get-buffer-create format "%s (%s)\n" "Generating char table for %s..." message insert-charset-table "%s Done." set-buffer-modified-p nil view-buffer] 4 "\ Display character table of CHARSET." (list (let ((charset-alist (mapcar (function (lambda (charset) (cons (charset-doc-string charset) charset))) (charset-list)))) (cdr (assoc (completing-read "What charset: " charset-alist nil t nil) charset-alist))))]) (provide 'char-table)