;ELC ;;; compiled by nk@localhost.localdomain on Fri Dec 1 22:48:57 2006 ;;; from file /home/nk/pkg-build/test/mule-packages/mule-base/mule-diag.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 "`mule-diag.el' was compiled for Emacs 20")) (or (boundp 'current-load-list) (setq current-load-list nil)) (defalias 'print-list #[(&rest args) "A@@!!Aj@!!" [args princ " " "\n"] 3]) (defalias 'sorted-charset-list #[nil " \"" [sort charset-list #[(x y) " !!W" [y x charset-id] 3]] 3]) #@416 Display a list of all character sets. The ID column contains a charset identification number for internal use. The B column contains a number of bytes occupied in a buffer by any character in this character set. The W column contains a number of columns occupied on the screen by any character in this character set. With prefix arg, the output format gets more cryptic, but still shows the full information. (defalias 'list-character-sets #[(&optional arg) "Ð\nq ! Ɖ)" [truncate-lines arg standard-output "*Help*" list-character-sets-1 help-mode t] 3 (#$ . 813) "P"]) (defalias 'list-character-sets-1 #[(arg) " cc @ A\n!\n#cj\n!\n!\n!$c[c @ A\n!\n\n!\n!\n!\n!\n!\n!\n!\n!& !R*" [arg l charset sorted-charset-list nil "ID Name B W Description\n" "-- ---- - - -----------\n" format "%03d %s" charset-id 28 "%d %d %s\n" charset-bytes charset-width charset-description "#########################\n## LIST OF CHARSETS\n## Each line corresponds to one charset.\n## The following attributes are listed in this order\n## separated by a colon `:' in one line.\n## CHARSET-ID,\n## CHARSET-SYMBOL-NAME,\n## DIMENSION (1 or 2)\n## CHARS (94 or 96)\n## BYTES (of multibyte form: 1, 2, 3, or 4),\n## WIDTH (occupied column numbers: 1 or 2),\n## DIRECTION (0:left-to-right, 1:right-to-left),\n## ISO-FINAL-CHAR (character code of ISO-2022's final character)\n## ISO-GRAPHIC-PLANE (ISO-2022's graphic plane, 0:GL, 1:GR)\n## DESCRIPTION (describing string of the charset)\n" princ "%03d:%s:%d:%d:%d:%d:%d:%d:%d:%s\n" charset-dimension charset-chars charset-direction charset-iso-final-char charset-iso-graphic-plane] 14]) (defalias 'describe-designation #[(cs register) " \n\"!\" \n\"!\"\n ˪ aͪ !Ϫ$!*" [force cs register charset coding-system-property intern format "charset-g%d" "force-g%d-on-output" princ " G%d: %s%s\n" "never used" t "none" charset-name " (explicit designation required)" ""] 7]) #@42 Display information about CODING-SYSTEM. (defalias 'describe-coding-system #[(coding-system) " !ǘ ɐ \" ! \"! a!! \" \" \" \"! !ڪ! !! !! !᪁! !!! !!! !! $!\n9!\n!!* \"!!! !!) \"!!!!!) \" a!!! ! @! Aq)q! ؉44@! s B #! \" @a A AB! s @E! T4A43-!؉6\n@!6\n@N\" 7:6\"! `7 @\"ci:V7bcdb A`c*\nA3+! !!8?\"8@\"8A\") )" [i coding-list categories codings aliases coding "*Help*" get-buffer-process process-coding-system princ "Coding system for saving this buffer:\n " local-variable-p buffer-file-coding-system print-coding-system-briefly "Not set locally, use the default.\n" "Default coding system (for new files):\n " "Coding system for keyboard input:\n " "Coding system for terminal output:\n " "Coding systems for process I/O:\n" " encoding input to the process: " " decoding output from the process: " "\nPriority order for recognizing coding systems when reading files:\n" coding-priority-list 1 nil coding-category-system format " %d. %s " coding-system-get alias-coding-systems alias: alias of terpri "\n Other coding systems cannot be distinguished automatically\n from these, and therefore cannot be recognized automatically\n with the present coding system priorities.\n\n" (iso-7) mapcar #[(x) " a? \" !H\nH)? B" [coding-system codings flags x coding-system-get no-initial-designation coding-system-flags 10 11] 4] coding-systems frame-width " The followings are decoded correctly but recognized as %s:\n " " %s" "\n " "\n\n" "Particular coding systems specified for certain file names:\n" " OPERATION TARGET PATTERN CODING SYSTEM(s)\n" " --------- -------------- ----------------\n" #[(operation alist) "!! ! j @@!iY j @A!! A\\ʇ" [operation alist princ " " " nothing specified\n" 16 prin1 40 newline "\n" nil] 3] "File I/O" "Process I/O" "Network I/O" help-mode l process-coding-systems coding-system pos func proc max-col default-buffer-file-coding-system keyboard-coding-system terminal-coding-system standard-output file-coding-system-alist process-coding-system-alist network-coding-system-alist] 7 (#$ . 5781) nil]) (defalias 'print-coding-system #[(coding-system) "\n!!\n!\n!\"!\n!\n! \n!!$! a$\n\" \"\n\" \"\n\" \"\n\" \"\n\" \"\n\" \" a\n\"\n\" $! !@ @\"! A\"+!\n!!!" [eol-type type coding-system flags princ functionp coding-system-alias-p format " (alias of %s)\n" coding-system-aliasee coding-system-type coding-system-eol-type ";%s;%s;%s;" coding-system-mnemonic symbol-name nil iso2022 mapcar* #[(GX charset force-charset) " !\" !\"\n !R\n !Q C \"))" [charset flags GX coding-system charset-name flag coding-system-get intern nil coding-system-property ":[" symbol-name "]" ":" append force-charset] 5] ("G0" "G1" "G2" "G3") ("charset-g0" "charset-g1" "charset-g2" "charset-g3") ("force-g0-on-output" "force-g1-on-output" "force-g2-on-output" "force-g3-on-output") coding-system-get short append ("SHORT-FORM") no-ascii-eol ("ASCII-EOL") no-ascii-cntl ("ASCII-CNTL") seven ("SEVEN") lock-shift ("LOCKING-SHIFT") no-iso6429 ("NO-ISO6429") ccl "%s, %s" encode decode reverse "%s" mapc #[(flag) "\"!" [flag princ format ", %s"] 4] ";" coding-system-doc-string "\n"] 8]) #@233 Display a list of all coding systems. This shows the mnemonic letter, name, and description of each coding system. With prefix arg, the output format gets more cryptic, but still contains full information about each coding system. (defalias 'list-coding-systems #[(&optional arg) "!" [with-displaying-help-buffer #[nil "r q!)" [arg standard-output list-coding-systems-1] 2]] 2 (#$ . 9225) "P"]) (defalias 'list-coding-systems-1 #[(arg) " !!  \"\") \"" [bases arg princ "###############################################\n# List of coding systems in the following format:\n# MNEMONIC-LETTER -- CODING-SYSTEM-NAME\n# DOC-STRING\n" "#########################\n## LIST OF CODING SYSTEMS\n## Each line corresponds to one coding system\n## Format of a line is:\n## NAME[,ALIAS...];TYPE;MNEMONIC;EOL;FLAGS;POST-READ-CONVERSION\n## ;PRE-WRITE-CONVERSION;DOC-STRING,\n## where\n## NAME = coding system name\n## ALIAS = alias of the coding system\n## TYPE = nil (no conversion), t (undecided or automatic detection),\n## 0 (EMACS-MULE), 1 (SJIS), 2 (ISO2022), 3 (BIG5), or 4 (CCL)\n## EOL = lf (LF), crlf (CRLF), cr (CR), or nil (Automatic detection)\n## FLAGS =\n## if TYPE = 'ISO2022 then\n## comma (`,') separated data of the followings:\n## G0, G1, G2, G3, SHORT-FORM, ASCII-EOL, ASCII-CNTL, SEVEN,\n## LOCKING-SHIFT, NO-ISO6429\n## else if TYPE = 'CCL then\n## comma (`,') separated CCL programs for read and write\n## else\n## 0\n## POST-READ-CONVERSION, PRE-WRITE-CONVERSION = function name to be called\n##\n" make-hash-table mapc #[(coding-system) "! !\n \"?\n #*" [coding-system bases base-name base coding-system-base coding-system-name gethash puthash] 4] coding-system-list maphash #[(key value) "\"" [value print-coding-system-briefly doc-string] 3] (lambda (coding-system) (print-coding-system coding-system))] 3]) #@42 Display a list of all coding categories. (defalias 'list-coding-categories #[nil "! @@!#!An)" [l "*Help*" princ "############################\n## LIST OF CODING CATEGORIES (ordered by priority)\n## CATEGORY:CODING-SYSTEM\n##\n" coding-priority-list format "%s:%s\n" coding-category-system nil] 8 (#$ . 11153) nil]) (defalias 'describe-font-internal #[(font-info &optional verbose) " H\" H\" H!#\") H\"\" H\"\" H\"\" H\"\"" [charset font-info print-list "name (opened by):" 0 " full name:" 1 2 " charset:" format "%s (%s)" charset-description " size:" "%d" 3 " height:" 4 " baseline-offset:" 5 "relative-compose:" 6] 7]) #@65 Display information about fonts which partially match FONTNAME. (defalias 'describe-font #[(fontname) "!!\n\nGU A\n!\n!H8\n!!А \")" [window-system font-info fontname boundp global-fontset-alist error "No fontsets being used" 0 font frame-parameters query-fontset 2 ascii fontset-info message "No matching font" "*Help*" describe-font-internal verbose] 5 (#$ . 11873) "sFontname (default, current choice for ASCII chars): "]) (defalias 'print-fontset #[(fontset &optional print-fonts) "*!H+H-.H/*!(((0H(1H,,\",P \" P \" P \" P \" P*y*cj+V+-#cj ޱ. 2ˉ)@)A)/ 8 8; 8 A@ A@\n) $c;-." [l slant opened fontname font-info style fontset-info 0 1 2 x-decompose-font-name nil string-match "^bold$\\|^demibold$" " " "medium " "^i$" "italic" "^o$" "slant" "^ri$" "reverse italic" "^ro$" "reverse slant" " ? " 58 format "%2dx%d" " -" 64 "\n" " O Charset / Fontname\n" " - ------------------\n" sort-charset-list ?\? "not specified" ?o ?- ?x " %c %s\n %s\n" xlfd-fields charset fontset size weight height print-fonts fonts xlfd-regexp-weight-subnum xlfd-regexp-slant-subnum charset-list] 6]) #@619 Display information of FONTSET. This shows the name, size, and style of FONTSET, and the list of fonts contained in FONTSET. The column WDxHT contains width and height (pixels) of each fontset (i.e. those of ASCII font in the fontset). The letter `-' in this column means that the corresponding fontset is not yet used in any frame. The O column for each font contains one of the following letters: o -- font already opened - -- font not yet opened x -- font can't be opened ? -- no font specified The Charset column for each font contains a name of character set displayed (for this fontset) using that font. (defalias 'describe-fontset #[(fontset) "\nGU A\n!!\n!ɐqcc\n\"))" [standard-output fontset-info fontset 0 font frame-parameters query-fontset error "Current frame is using font, not fontset" "*Help*" "Fontset-Name WDxHT Style\n" "------------ ----- -----\n" print-fontset t] 4 (#$ . 13172) (byte-code " !! \"\n$*C" [completion-ignore-case window-system fontset-list boundp global-fontset-alist error "No fontsets being used" mapcar #[(x) "C" [x] 1] t completing-read "Fontset (default, used by the current frame): " nil] 5)]) #@218 Display a list of all fontsets. This shows the name, size, and style of each fontset. With prefix arg, it also list the fonts contained in each fontset; see the function `describe-fontset' for the format of the list. (defalias 'list-fontsets #[(arg) "\n!!Ȑ qcc \" @\" At*" [arg standard-output window-system fontsets boundp global-fontset-alist error "No fontsets being used" "*Help*" "Fontset-Name WDxHT Style\n" "------------ ----- -----\n" sort fontset-list #[(x y) " !!" [y x fontset-plain-name] 3] print-fontset nil] 5 (#$ . 14386) "P"]) #@46 Display information about all input methods. (defalias 'list-input-methods #[nil "!" [with-displaying-help-buffer #[nil "rq )" [standard-output list-input-methods-1] 1]] 2 (#$ . 14986) nil]) (defalias 'list-input-methods-1 #[nil " !!! \"̉ @ A A@k A@ ! @ 8:\n@;\n@\n) 8\"\")$!:+" [description input-method-alist title language l elt princ "\nNo input method is available, perhaps because you have not yet\ninstalled LEIM (Libraries of Emacs Input Method).\n\nLEIM is available from the same ftp directory as Emacs. For instance,\nif there exists an archive file `emacs-20.N.tar.gz', there should also\nbe a file `leim-20.N.tar.gz'. When you extract this file, LEIM files\nare put under the subdirectory `emacs-20.N/leim'. When you install\nEmacs again, you should be able to use various input methods." "LANGUAGE\n NAME (`TITLE' in mode line)\n" " SHORT-DESCRIPTION\n------------------------------\n" sort #[(x y) " A@A@" [y x] 2] nil terpri format " %s (`%s' in mode line)\n %s\n" 3 4 string-match ".*" match-string 0] 9]) (defalias 'insert-section #[(section-number title) " \"ȱ" [title section-number "########################################\n" "# Section " format "%d" ". " "\n" "########################################\n\n"] 7]) #@284 Display diagnosis of the multilingual environment (Mule). This shows various information related to the current multilingual environment, including lists of input methods, coding systems, character sets, and fontsets (if Emacs is running under a window system which uses fontsets). (defalias 'mule-diag #[nil "Ɛqα !cc\" ر\" !@\"!c a A\n!檁\n)A!c\" c ұc\"!!  @ @J#! Ao)c\"!c !\"cc  @\" At)B )" [standard-output default-input-method font fontsets l window-system "*Mule-Diagnosis*" "###############################################\n" "### Current Status of Multilingual Features ###\n" "###############################################\n\n" "CONTENTS: Section 1. General Information\n" " Section 2. Display\n" " Section 3. Input methods\n" " Section 4. Coding systems\n" " Section 5. Character sets\n" boundp global-fontset-alist " Section 6. Fontsets\n" "\n" insert-section 1 "General Information" "Version of this emacs:\n " emacs-version "\n\n" 2 "Display" "Window-system: " symbol-name format "%s" "Terminal: " getenv "TERM" x frame-parameters "The selected frame is using the " query-fontset "fontset" "font" ":\n " "Coding system of the terminal: " 3 "Input methods" list-input-methods-1 "Default input method: " "No default input method is specified\n" 4 "Coding systems" list-coding-systems-1 t princ "############################\n## LIST OF CODING CATEGORIES (ordered by priority)\n## CATEGORY:CODING-SYSTEM\n##\n" coding-priority-list "%s:%s\n" 5 "Character sets" list-character-sets-1 6 "Fontsets" "Fontset-Name WDxHT Style\n" "------------ ----- -----\n" fontset-list print-fontset window-system-version terminal-coding-system print-help-return-message] 10 (#$ . 16317) nil]) #@116 Dump information about all charsets into the file `CHARSETS'. The file is saved in the directory `data-directory'. (defalias 'dump-charsets #[nil " \" ! \" !ˋ\n!* " [noninteractive data-directory buf file expand-file-name "CHARSETS" nil file-writable-p error "Can't write to file %s" find-file-noselect ((byte-code " q !!ĉ +ć" [make-backup-files coding-system-for-write buffer-read-only buf nil erase-buffer list-character-sets t insert-buffer-substring "*Help*" save-buffer] 2)) kill-buffer kill-emacs] 3 (#$ . 18243)]) #@121 Dump information about all coding systems into the file `CODINGS'. The file is saved in the directory `data-directory'. (defalias 'dump-codings #[nil " \" ! \" !ˋ\n!* " [noninteractive data-directory buf file expand-file-name "CODINGS" nil file-writable-p error "Can't write to file %s" find-file-noselect ((byte-code " q !! !ĉ +ć" [make-backup-files coding-system-for-write buffer-read-only buf nil erase-buffer list-coding-systems t insert-buffer-substring "*Help*" list-coding-categories save-buffer] 2)) kill-buffer kill-emacs] 3 (#$ . 18811)])