;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:46:48 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/international/mule-diag.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`mule-diag.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'print-list #[(&rest args) "A\203@\203\301@!\210\301\302!\210A\211\202\301@!\210\301\303!\207" [args princ " " "\n"] 3]) (defalias 'sort-charset-list #[nil "\301\302\"\211\207" [charset-list sort #[(x y) "\211\301N)\303H\n\211\301N)\303HW\207" [x charset y 0] 4]] 3]) #@747 Display a list of all character sets. The ID-NUM column contains a charset identification number for internal Emacs use. The MULTIBYTE-FORM column contains a format of multibyte sequence of characters in the charset for buffer and string by one to four hexadecimal digits. `xx' stands for any byte in the range 0..127. `XX' stands for any byte in the range 160..255. The D column contains a dimension of this character set. The CH column contains a number of characters in a block of this character set. The FINAL-CHAR column contains an ISO-2022's to use for designating this character set in ISO-2022-based coding systems. With prefix arg, the output format gets more cryptic, but still shows the full information. (defalias 'list-character-sets #[(arg) "\306\220rq\210 \203\307 \202\310\311\312 \205\313\314Q!c\210\315c\210\316j\210\317c\210\320c\210\316j\210\321c\210\322\323\310\312 \2057\324\325P!\326\211\203n @;\203P @c\210\202g @@c\210\327 @@!\210\330\331\332 @A $\210db\210 A\211\204C\333c\210,\334c\210\335\336!\210\337\340 Dt\")\221\207" [standard-output arg pos help-echo help-highlight-face columns "*Help*" list-character-sets-2 substitute-command-keys "Use " display-mouse-p "\\[help-follow-mouse] or " "\\[help-follow]:\n" " on a column title to sort by that title," 56 "+----DIMENSION\n" " on a charset name to list characters." "| +--CHARS\n" (("ID-NUM" . id) " " ("CHARSET-NAME" . name) " " ("MULTIBYTE-FORM" . id) " " ("D CH FINAL-CHAR" . iso-spec)) region "\\[help-follow-mouse], " "\\[help-follow]: sort on this column" nil search-backward help-xref-button 0 sort-listed-character-sets "\n" "------ ------------ -------------- - -- ----------\n" list-character-sets-1 id help-setup-xref list-character-sets] 7 (#$ . 930) "P"]) (defalias 'sort-listed-character-sets #[(sort-key) "\205 \212\302eb\210\303\304!\210\305 \210`d|\210\306!\210\307\310\302D\311\"*\207" [sort-key buffer-read-only nil re-search-forward "[0-9][0-9][0-9]" beginning-of-line list-character-sets-1 help-setup-xref list-character-sets t] 3]) (defalias 'charset-multibyte-form-string #[(charset) "\211\300N)\303=\203\304\202S\305=\203 \306\307 \310H\"\202S\311=\203*\312\202S\306\313 \310H\" \314H\315V\203A\306\316\n \314H#\n\317P \320H\321V\203Q\n\317P\n))\207" [charset info str ascii "xx" eight-bit-control format "%2X Xx" 6 eight-bit-graphic "XX" "%2X" 7 0 "%s %2X" " XX" 2 1] 6]) (defalias 'list-character-sets-1 #[(sort-key) "\204\306\307 \310\311 \205\312\313P!\314\211\211\211\211())\203R)@)A) \211\303N) \211\303N)\315H \316 !\n\317H\n\320H\n\321H\257 B\202 \306=\203\\\322\202t\323=\203f\324\202t\325=\203p\326\202t\327\330\"\331 \" \205\333 @ A\332\333\f@\f@#c\210\321j\210\334\fA@!c\210\335\334\fA@!!\210\336\315\337\fA@($\210db\210\340c\210\341j\210\317\f8c\210\342j\210\332\343\320\f8\344\f8#\345\f8\315W\203\317\346\202\322\345\f8\261\210\347c\210\202z.\207" [sort-key sort-func info charset elt charset-info-list id charset-list substitute-command-keys display-mouse-p "\\[help-follow-mouse], " "\\[help-follow]: show table of this character set" nil 0 charset-multibyte-form-string 2 3 8 #[(x y) "@ @W\207" [x y] 2] name #[(x y) "A@ A@\231\207" [x y] 2] iso-spec #[(x y) "\3028\302 8W\206/\3028\302 8U\205/\3038\303 8W\206/\3038\303 8U\205/\3048\304 8W\207" [x y 3 4 5] 3] error "Invalid charset sort key: %s" sort format "%03d(%02X)" symbol-name search-backward help-xref-button list-charset-chars " " 40 56 "%d %2d " 4 5 "none" "\n" help-echo tail] 8]) (defalias 'list-character-sets-2 #[nil "\303c\210\304\n\205d\n@\nA\305\306\307 \211\301N)\310H \211\211\301N)\311H \211\301N)\312H \211\301N)\313H \211\301N)\314H \211\301N)\315H \211\301N)\316H \211\301N)\317H \211\301N)\320H& !\210\202*\207" [charset-list charset l "#########################\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" nil princ format "%03d:%s:%d:%d:%d:%d:%d:%d:%d:%s\n" 0 2 3 1 4 5 8 9 13] 15]) #@1143 Alist of non-ISO charset names vs the corresponding information. Non-ISO charsets are what Emacs can read (or write) by mapping to (or from) some Emacs' charsets that correspond to ISO charsets. Each element has the following format: (NON-ISO-CHARSET CHARSET-LIST TRANSLATION-METHOD [ CODE-RANGE ]) NON-ISO-CHARSET is a name (symbol) of the non-ISO charset. CHARSET-LIST is a list of Emacs' charsets into which characters of NON-ISO-CHARSET are mapped. TRANSLATION-METHOD is a translation table (symbol) to translate a character code of NON-ISO-CHARSET to the corresponding Emacs character code. It can also be a function to call with one argument, a character code in NON-ISO-CHARSET. CODE-RANGE specifies the valid code ranges of NON-ISO-CHARSET. It is a list of RANGEs, where each RANGE is of the form: (FROM1 TO1 FROM2 TO2 ...) or ((FROM1-1 TO1-1 FROM1-2 TO1-2 ...) . (FROM2-1 TO2-1 FROM2-2 TO2-2 ...)) In the first form, valid codes are between FROM1 and TO1, or FROM2 and TO2, or... The second form is used for 2-byte codes. The car part is the ranges of the first byte, and the cdr part is the ranges of the second byte. (defvar non-iso-charset-alist '((viscii (ascii vietnamese-viscii-lower vietnamese-viscii-upper) viet-viscii-nonascii-translation-table ((0 255))) (koi8-r (ascii cyrillic-iso8859-5) cyrillic-koi8-r-nonascii-translation-table ((32 255))) (alternativnyj (ascii cyrillic-iso8859-5) cyrillic-alternativnyj-nonascii-translation-table ((32 255))) (big5 (ascii chinese-big5-1 chinese-big5-2) decode-big5-char ((32 127) ((161 254) 64 126 161 254))) (sjis (ascii katakana-jisx0201 japanese-jisx0208) decode-sjis-char ((32 127 161 223) ((129 159 224 239) 64 126 128 252)))) (#$ . 5492)) (defalias 'decode-codepage-char #[(codepage code) "\303\304\305\"!\306 !\204\307!\210\310\311\312\n! \"!)\207" [codepage coding-system code intern format "cp%d" coding-system-p codepage-setup string-to-char decode-coding-string char-to-string] 4]) (byte-code "\305 \306 \203/ @ A\307\310@P!\311AD\312\313\314\315@!\316BBE\317\320DCF\nB\202*\304 B\321\304!\204<\306\306\207" [elt tail non-iso-charset-alist current-load-list charset-history cp-supported-codepages nil intern "cp" ascii lambda (code) decode-codepage-char string-to-int (code) 0 255 boundp] 7) #@504 Read a character set from the minibuffer, prompting with string PROMPT. It reads an Emacs' character set listed in the variable `charset-list' or a non-ISO character set listed in the variable `non-iso-charset-alist'. Optional arguments are DEFAULT-VALUE and INITIAL-INPUT. DEFAULT-VALUE, if non-nil, is the default value. INITIAL-INPUT, if non-nil, is a string inserted in the minibuffer initially. See the documentation of the function `completing-read' for the detailed meanings of these arguments. (defalias 'read-charset #[(prompt &optional default-value initial-input) "\306\307\310\"\307\311 \"\"\312 \n\313\314\f\315 &\211G\316V\205\"\317!*\207" [charset-list non-iso-charset-alist table prompt initial-input default-value append mapcar #[(x) "\301!C\207" [x symbol-name] 2] #[(x) "\301@!C\207" [x symbol-name] 2] completing-read nil t charset-history 0 intern charset] 9 (#$ . 7794)]) (defalias 'list-block-of-chars #[(charset row min max) "\306\211\307\310\311\312\\\313\\\"\210\314c\210\312\312\315W\203%\316\317 \"c\210 T\211\202\n\315\245\315_\211 X\203\306 \315\246\312U\203E\316\320\f\321_ \\\315\245\"c\210 \nW\203O\322\202\230 \2119\205]\323\305N!)\203~\f\312U\203r\324\325 !\312H \"\202\230\324\325 !\312H\f #\202\230 9\203\221 \326N\203\221 \326N H\202\230 \f\321_ \\!\327 !\203\263\322W\204\261\330Y\203\263\331X\203\263\322 \315\246\332_\333\\j\210c\210 T\211\202,*\334c\207" [ch i min max row charset nil insert-char 45 48 0 4 "\n " 16 format "%3X" "\n%3Xx" 256 32 vectorp make-char-internal charset-info translation-table char-table-p 127 255 3 6 "\n" object] 5]) (defalias 'list-iso-charset-chars #[(charset) "\211\300N)\306H\211\300N)\307H\211\300N)\310H\311\211\312\313\"c\210\314=\2032\315\316\202^\317=\203?\320\321\202^\f\322U\203L\323\324\202P\325\326 \327U\204^\n\315\\ \315\\ \330U\203m\331\327\n $\202\210\n\211 X\205\207\331\n $\210T\211\202q)-\207" [charset max min plane chars dim 2 3 9 nil format "Characters in the charset %s.\n" eight-bit-control 128 159 eight-bit-graphic 160 255 94 33 126 32 127 0 1 list-block-of-chars i] 6]) (defalias 'list-non-iso-charset-chars #[(charset) " \236\211A@\306\n8\307\n8\310\n\204\311\312\"\210\313\314\"c\210\315\316\317 \320#\321\261\210 \205\301 @ A@\250\203Y\203,\322\f\323@A@$\210AA\211\202@@\310\211\211\211\211\203\274@A@AAX\203mA\203\263@A@AA\322\f$\210\202\220T\211\202\205.\202,-\207" [charset non-iso-charset-alist slot charsets translate-method ranges 2 3 nil error "Unknown external charset: %s" format "Characters in non-ISO charset %s.\n" "They are mapped to: " mapconcat symbol-name ", " "\n" list-block-of-chars 0 range col-max col col-range row-max row row-range] 7]) #@62 Display a list of characters in the specified character set. (defalias 'list-charset-chars #[(charset) "\304\220rq\210\305\306!\210 \2119\205\307\n\301N!)\203 \310 !\2020 \236\203,\311 !\2020\312\313 \")\221\207" [standard-output charset object non-iso-charset-alist "*Help*" set-buffer-multibyte t vectorp list-iso-charset-chars list-non-iso-charset-chars error "Invalid charset %s"] 5 (#$ . 10653) (list (read-charset "Character set: "))]) #@50 Display information about character set CHARSET. (defalias 'describe-character-set #[(charset) "\304!\204 \305\306\"\210\211\300N)\307\220\212\nq\210\310\311!\312\313 \314H\"\261\210 \315H\316\261\210\317 \320H\321U\203>\312\322 \323H\"\202G\312\324 \323H \323H#\261\210\325c\210 \326H\314Y\203`\312\327 \326H\"c\210\202c\330c\210\312\331 \332H\"c\210\312\333\334!\"c\210\335 \336H\337\"\211\203\221\312\340 \"c\210\341\311 !!\210\342\314\343 \344$\210)\345\346Dt\")\221)\207" [charset info standard-output coding charsetp error "Invalid charset: %S" "*Help*" "Character set: " symbol-name format " (ID:%d)\n\n" 0 13 "\n\n" "number of contained characters: " 2 1 "%d\n" 3 "%dx%d\n" "the final char of ISO2022's designation sequence: " 8 "`%c'\n" "not assigned\n" "width (how many columns on screen): %d\n" 4 "internal multibyte sequence: %s\n" charset-multibyte-form-string plist-get 14 preferred-coding-system "preferred coding system: %s\n" search-backward help-xref-button describe-coding-system "mouse-2, RET: describe this coding system" help-setup-xref describe-character-set] 8 (#$ . 11110) (list (let ((non-iso-charset-alist nil)) (read-charset "Charset: ")))]) #@279 Display information about the character at POS in the current buffer. POS defaults to point. The information includes character code, charset and code points in it, syntax, category, how the character is encoded in a file, which font is being used for displaying the character. (defalias 'describe-char-after #[(&optional pos) "\204`dY\203\306\307!\210f\310 !\311`\312\211\313$\211\205( @ A@{ @\312A\312B\n\314=\203U\315\316\317 \320W\203G\321 !\202J\322 ! \211\211%DCA\202*\315\316\323 \320W\203d\321 !\202g\322 ! \211\211%D\324\325\n!\316\326\n\211\302N)\327H\"E\330\331 !C\n\211\302N)\332H\333U\203\231\316\334CA@\"\202\244\316\335CA@\332C8#)D\336\332 zD\2368D\337\340 !\211E\204\275\341\202\304\342\343\344E!\")B\345\346\347\322 !!\312\"D\350FG\351 G\"\211H\203\357\346HG\"\316\352G\"D\202\365\353\325G!D*B\354\355 !\203\n\356\357`!\206\360D\202&\361\362 G\351 G\"\211H\203#\346HG\"\202$\363*D\257A\364\365\342\366A\"\"B\367\220\212Iq\210\370@!\210\316\371B\"JA\312K\211L\203\243L@K\316JK@\"c\210KA\312M\211N\203\226N@Mi\372M!\\\333\\\373 Y\203\207\374c\210BTj\210\375M\261\210NA\211N\204l*\374c\210LA\211L\204R+ \205\342\376\377\201O\f\333\312O\201P#\201Q\f\201R\261\210\201S 8\203\316\201Tc\202\342\201U\377\201V\332 8\375#\201W\201X\261)\221.\207" [pos char charset composition composed enable-multibyte-characters error "No character at point" char-charset find-composition nil t unknown "character" format "%s (0%o, %d, 0x%x) -- invalid character code" 256 single-key-description char-to-string "%s (0%o, %d, 0x%x)" "charset" symbol-name "(%s)" 13 "code point" split-char 2 1 "%d" "%d %d" "syntax" "category" char-category-set ("-- none --") mapcar #[(x) "\301\302\303!#\207" [x format "%c:%s " category-docstring] 5] category-set-mnemonics "buffer code" encoded-string-description string-as-unibyte "file code" encode-coding-char "(encoded by coding system %S)" "not encodable by coding system" display-graphic-p selected-frame "font" internal-char-font "-- none --" "terminal code" terminal-coding-system "not encodable" apply max #[(x) "@G\207" [x] 1] "*Help*" set-buffer-multibyte "%%%ds:" string-width frame-width "\n" " " "\nComposed with the following character(s) " mapconcat multibyte-p item-list max-width split syntax-code-table category-set buffer-file-coding-system coding encoded standard-output formatter elt #1=#:--dolist-temp--97269 clm #2=#:--dolist-temp--97270 #[(x) "\301\302\"\207" [x format "`%c'"] 3] ", " " to form `" "'" 3 ".\n" "\nby the rule (" #[(x) "\301:\203\n\302\202 \303\"\207" [x format "%S" "?%c"] 3] ").\n" "See the variable `reference-point-alist' for the meaning of the rule.\n"] 12 (#$ . 12305) nil]) (defalias 'print-designation #[(flags) "\304\305\211\306W\205\261\n H\307\310\311 \204\312\202d\313=\203$\314\202d9\2038\310\315\211\211\300N)\316H#\202d<\203c@\2119\205J\317 \300N!)\203_\310\320@@\211\300N)\316H#\202d\321\202d\322#!\210<\203\252A\211\203\252@\313=\203\201\307\323!\210\202\243@\2119\205\216\317 \300N!)\203\243\307\310\324@@\211\300N)\316H#!\210A\211\204s T\211\202*\207" [charset graphic-register flags object 0 nil 4 princ format " G%d -- %s\n" "never used" t "no initial designation, and used by any charsets" "%s:%s" 13 vectorp "%s:%s, and also used by the followings:" "no initial designation, and used by the followings:" "invalid designation information" " any other charsets\n" " %s:%s\n"] 10]) #@42 Display information about CODING-SYSTEM. (defalias 'describe-coding-system #[(coding-system) "\204\306 \207\307\220\310\311\"\210\312\313!\210\314\315\"\211\203B\312\316!\210 \317\211\203= @\312\320!\210\312\n!\210\312\321!\210 A\211\204'*\312\313!\210)\322!\300N)\312\323!\210\324!\325!@\312@!\210@\317=\203l\312\326!\210\202t@\327=\203z\312\330!\210\202t@\331=\203\210\312\332!\210\202t@\333=\203\226\312\334!\210\202t@\335=\203>\312\336!\210\312\337!\210\340 !\210\312\341!\210\312 \342H\203\270\343\202\271\344!\210 \345H\203\305\312\346!\210 \347H\203\317\312\350!\210\312 \351H\203\332\352\202\333\353!\210 \354H\203\347\312\355!\210 \356H\203\361\312\357!\210 \360H\203\373\312\361!\210 \362H\203\312\363!\210 \364H\203\312\365!\210 \366H\203\312\367!\210 \370H\203#\312\371!\210 \372H\203-\312\373!\210 \374H\2037\312\375!\210\312\376!\210\202t@\377=\203N\312\201F!\210\202t@\342=\203^\312\201G!\210\202t@\345=\203n\312\201H!\210\202t\312\201I!\210*\312\201J!\210\201K!A\201LA!\203\235\312\201M!\210\312A!\210\312\313!\210\202\330A\203\251A\331=\203\262\312\201N!\210\202\330A\333=\203\302\312\201O!\210\202\330A\335=\203\322\312\201P!\210\202\330\312\201Q!\210*\314\201R\"\211B\203\312\201S!\210\312\201T!\210\312\201U!\210\312B!\210\312\313!\210)\314\201V\"\211C\203(\312\201W!\210\312\201X!\210\312\201U!\210\312C!\210\312\313!\210)\212Dq\210\314\201Y\"E\201Z!\201[>\204\221E\203\221E\327=\203V\201\\c\210\202\221\201]c\210E\203\221\201^\201_E@!\261\210\201`\201_E@!!\210\201a\331\201bE@#\210db\210EA\211E\204`)\201c\201dDt\")\221\207" [coding-system vars v #1=#:--dolist-temp--97271 coding-spec flags describe-current-coding-system "*Help*" print-coding-system-briefly doc-string princ "\n" coding-system-get dependency "See also the documentation of these customizable variables\nwhich alter the behaviour of this coding system.\n" nil " `" "'\n" check-coding-system "Type: " coding-system-type coding-system-flags " (do no conversion)" t " (do automatic conversion)" 0 " (Emacs internal multibyte form)" 1 " (Shift-JIS, MS-KANJI)" 2 " (variant of ISO-2022)\n" "Initial designations:\n" print-designation "Other Form: \n " 4 "short-form" "long-form" 5 ", ASCII@EOL" 6 ", ASCII@CNTL" 7 ", 7-bit" ", 8-bit" 8 ", use-locking-shift" 9 ", use-single-shift" 10 ", use-roman" 11 ", use-old-jis" 12 ", no-ISO6429" 13 ", init-bol" 14 ", designation-bol" 15 ", convert-unsafe" 16 ", accept-latin-extra-code" "." 3 type eol-type postread prewrite standard-output charsets " (Big5)" " (do conversion by CCL program)" " (text with random binary characters)" ": invalid coding-system." "\nEOL type: " coding-system-eol-type vectorp "Automatic selection from:\n " "LF\n" "CRLF\n" "CR\n" "invalid\n" post-read-conversion "After decoding text normally," " perform post-conversion using the function: " "\n " pre-write-conversion "Before encoding text normally," " perform pre-conversion using the function: " safe-charsets coding-system-base (raw-text emacs-mule) "This coding system can encode all charsets except for\neight-bit-control and eight-bit-graphic.\n" "This coding system encodes the following charsets:\n " " " symbol-name search-backward help-xref-button describe-character-set help-setup-xref describe-coding-system] 6 (#$ . 15845) "zDescribe coding system (default, current choices): "]) #@1098 Display coding systems currently used in a brief format in echo area. The format is "F[..],K[..],T[..],P>[..],P<[..], default F[..],P<[..],P<[..]", where mnemonics of the following coding systems come in this order at the place of `..': `buffer-file-coding-system' (of the current buffer) eol-type of `buffer-file-coding-system' (of the current buffer) Value returned by `keyboard-coding-system' eol-type of `keyboard-coding-system' Value returned by `terminal-coding-system'. eol-type of `terminal-coding-system' `process-coding-system' for read (of the current buffer, if any) eol-type of `process-coding-system' for read (of the current buffer, if any) `process-coding-system' for write (of the current buffer, if any) eol-type of `process-coding-system' for write (of the current buffer, if any) `default-buffer-file-coding-system' eol-type of `default-buffer-file-coding-system' `default-process-coding-system' for read eol-type of `default-process-coding-system' for read `default-process-coding-system' for write eol-type of `default-process-coding-system' (defalias 'describe-current-coding-system-briefly #[nil "\305p!\211\205 \306!\307\310\311\n!\312\n!\311\313 !\312\313 !\311\314 !\312\314 !\311 @!\312 @!\311 A!\312 A!\311 !\312 !\311\f@!\312\f@!\311\fA!\312\fA!&*\207" [proc process-coding-systems buffer-file-coding-system default-buffer-file-coding-system default-process-coding-system get-buffer-process process-coding-system message "F[%c%s],K[%c%s],T[%c%s],P>[%c%s],P<[%c%s], default F[%c%s],P>[%c%s],P<[%c%s]" coding-system-mnemonic coding-system-eol-type-mnemonic keyboard-coding-system terminal-coding-system] 20 (#$ . 19299) nil]) (defalias 'print-coding-system-briefly #[(coding-system &optional doc-string) "\204\303\304!\207\303\305\306\307!#!\210\310\311\" @=\2030 A\203>\303\305\312\313 AB\"!\210\202> >\203>\303\305\314 @\"!\210)\303\315!\210\n\205U\316!\211\205U\303\305\317\n\"!\207" [coding-system aliases doc-string princ "nil\n" format "%c -- %s" coding-system-mnemonic coding-system-get alias-coding-systems " %S" alias: " (alias of %s)" "\n" coding-system-doc-string " %s\n"] 5]) #@51 Display coding systems currently used, in detail. (defalias 'describe-current-coding-system #[nil "\306\220\307p!\211\205 \310!\311\312!\210\313\302!\203\314\n!\210\202#\311\315!\210\311\316!\210\314 !\210\311\317!\210\314\320 !\210\311\321!\210\314\322 !\210\307p!\203Y\311\323!\210\311\324!\210\314 A!\210\311\325!\210\314 @!\210\311\326!\210\311\327!\210\314\f@!\210\311\330!\210\314\fA!\210*\212 q\210\311\331!\2106\332\333\211\211789:\211;\203\362;@J\2118\203\35189>\204\35189B9\311\334\335:8#!\210\3368\337\"787@=\203\3207A\203\341\311\3407AB!\210\202\34187>\203\341\311\341\3427@E!\210\343 \210:T:;A\211;\204\214-\311\344!\210\345\333\211<=\211>\203^>@J=\346\347>@\350N\"\210<\203U\351 \333?@\311\334\352=\"!\210<\203Q`?\334\353<@\"c\210i@V\203H?b\210\354c\210db\210A\211>\204+\311\356!\210\343 \210\311\357!\210\311\360!\210\361A\361\362B\"\210A\363C\"\210A\364D\"\210)\365 )\221\207" [proc process-coding-systems buffer-file-coding-system default-buffer-file-coding-system default-process-coding-system standard-output "*Help*" get-buffer-process process-coding-system princ "Coding system for saving this buffer:\n " local-variable-p print-coding-system-briefly "Not set locally, use the default.\n" "Default coding system (for new files):\n " "Coding system for keyboard input:\n " keyboard-coding-system "Coding system for terminal output:\n " terminal-coding-system "Coding systems for process I/O:\n" " encoding input to the process: " " decoding output from the process: " "Defaults for subprocess I/O:\n" " decoding: " " encoding: " "\nPriority order for recognizing coding systems when reading files:\n" 1 nil 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" (coding-category-iso-7 coding-category-iso-7-else) mapcar #[(x) " =?\205%\304\305\"\205%\306!\211\307H\206\n\310H)?\205% B\211\207" [x coding-system flags codings 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) "\302\303!\210\302!\210 \204\302\304!\207 \205;\305j\210\306 @@!\210i\307Y\203&\310 \210\307j\210\302 @A!\210\302\311!\210 A\211\204\312\207" [operation alist princ " " " nothing specified\n" 16 prin1 40 newline "\n" nil] 3] "File I/O" "Process I/O" "Network I/O" help-mode coding-category-list aliases coding coding-list i l codings coding-system categories pos max-col func file-coding-system-alist process-coding-system-alist network-coding-system-alist] 7 (#$ . 21477) nil]) (defalias 'print-coding-system #[(coding-system) "\306!\307!\310!\311\312\" @=\204#\313\314\315 @#!\202\224\313!\210 A\211\203>\313\316!\210\313 @!\210 A\211\204.\313\314\317\f\320! \250\203N \202O\321$!\210\f\322=\203\323\324\211$\325W\203\317\n$H\211\204s\313\326!\210\202\302 \327=\203\200\313\330!\210\202\302 \211%9\205\216\331%\305N!)\203\231\313 !\210\202\302 <\203\302\313\332!\210\313 @!\210 A\211\203\276\313\316!\210\313 @!\210 A\211\204\256\313\333!\210\313\316!\210$T\211$\202^$\334W\203\362\313\n$H\203\342\335\202\343\323!\210\313\316!\210$T\211$\202\321\313\n$H\203\376\335\202\377\323!\210*\202\207\f\325=\203\203\324\211&'\n@9\203\"\313\314\336\n@\"!\210\202F\323'\n@G&'&W\203F\313\314\337\n@'H\"!\210'T\211'\202,\313\316!\210\nA9\203[\313\314\340\nA\"!\210\202\323'\nAG&'&W\203\313\314\337\nA'H\"!\210'T\211'\202e*\202\207\313\323!\210\313\341!\210\313\342!!\210\313\343!,\207" [coding-system aliases flags eol-type type charset coding-system-type coding-system-eol-type coding-system-flags coding-system-get alias-coding-systems princ format "%s (alias of %s)\n" "," ":%s:%c:%d:" coding-system-mnemonic 3 2 0 nil 4 -1 t -2 vectorp "(" ")" 12 1 " %s" " %x" "%s" ":" coding-system-doc-string "\n" idx object len i] 7]) #@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) "\301\220\302!\221\207" [arg "*Help*" list-coding-systems-1] 3 (#$ . 25831) "P"]) (defalias 'list-coding-systems-1 #[(arg) "\204 \303\304!\210\202\303\305!\210\306\307!\310\211\2054\n@\204(\311 \312\"\210\202,\313 !\210\nA\211\204\310*\207" [arg coding-system bases 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 = 0 (LF), 1 (CRLF), 2 (CR), or 3 (Automatic detection)\n## FLAGS =\n## if TYPE = 2 then\n## comma (`,') separated data of the followings:\n## G0, G1, G2, G3, SHORT-FORM, ASCII-EOL, ASCII-CNTL, SEVEN,\n## LOCKING-SHIFT, SINGLE-SHIFT, USE-ROMAN, USE-OLDJIS, NO-ISO6429\n## else if TYPE = 4 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" coding-system-list base-only nil print-coding-system-briefly doc-string print-coding-system] 4]) #@42 Display a list of all coding categories. (defalias 'list-coding-categories #[nil "\302\220\303\304!\210\211\205\303\305\306 @ @J#!\210 A\211\204\f\307)\221\207" [coding-category-list l "*Help*" princ "############################\n## LIST OF CODING CATEGORIES (ordered by priority)\n## CATEGORY:CODING-SYSTEM\n##\n" format "%s:%s\n" nil] 7 (#$ . 27613)]) (defalias 'describe-font-internal #[(font-info &optional verbose) "\301\302\303H\"\210\301\304\305H\"\210\301\306\307\310\311H\"\"\210\301\312\307\310\313H\"\"\210\301\314\307\310\315H\"\"\210\301\316\307\310\317H\"\"\207" [font-info print-list "name (opened by):" 0 " full name:" 1 " size:" format "%2d" 2 " height:" 3 " baseline-offset:" 4 "relative-compose:" 5] 6]) #@65 Display information about fonts which partially match FONTNAME. (defalias 'describe-font #[(fontname) "\203\n\303\304!\204\305\306!\210 \203 G\307U\203/\310\311 \236A\312 !\203/\313\314 !\315H\236A@\302 !\211\204=\316\317!\202D\320\220\321\n\322\"\221)\207" [window-system fontname font-info fboundp fontset-list error "No fontsets being used" 0 font frame-parameters query-fontset ascii fontset-info 2 message "No matching font" "*Help*" describe-font-internal verbose] 5 (#$ . 28381) "sFontname (default, current choice for ASCII chars): "]) (defalias 'print-fontset #[(fontset &optional print-fonts) "\306!\307H\310\211\211\211\211\211\211\211&'()\311 \210\312\313\261\210\314c\210\315j\210\316c\210\317c\210\315j\210\320c\210\313c\210)\205\242)@()A)(@'(A@&(AA'9\203g'\310\310\202\211'\250\203{\321'!''\202\211\321'@!'@'A \f=\204\233\322 !c\210\n\203\233\313c\210\n\203$\323\n!* \211\303N)\307H\307U\203\330\307*8\324U\203\330\325\326 !\324H*A@ \211\303N)\327H\330U\203\325\331\202\326\332#\333\n\261\210)\n U\204$\334c\210\323 !* \211\303N)\307H\307U\203 \307*8\324U\203 \325\326 !\324H*A@ \211\303N)\327H\330U\203\335\202\336# c\210)\315j\210&;\2034&c\210\202\200&@\203Y\337\334&@\"\203N\334&@\340\261\210\202\\\340&@\340\261\210\202\\\340c\210&A\203}\337\334&A\"\203s&Ac\210\202\200&A\341\261\210\202\200\342c\210\313c\210+\203\235 \203\235\343j\210\344 @\345\261\210 A\211\204\214 \2028. \207" [fontset to from charset prev-charset opened fontset-info 2 nil beginning-of-line "Fontset: " "\n" "CHARSET or CHAR RANGE" 24 "FONT NAME\n" "---------------------" "---------" char-charset symbol-name split-char 0 make-char-internal charset-info 3 94 33 32 " " "-" 126 127 string-match "-*-" "-*" "*" 5 "[" "]\n" font-spec chars elt tail split print-fonts] 10]) #@87 Display information of FONTSET. This shows which font is used for which character(s). (defalias 'describe-fontset #[(fontset) "G\302U\203 \303\304 \236A\305!\211\204\306\307!\210\310\220\212 q\210\311\312\")\221\207" [fontset standard-output 0 font frame-parameters query-fontset error "Current frame is using font, not fontset" "*Help*" print-fontset t] 4 (#$ . 30268) (byte-code "\203\n\304\303!\204\305\306!\207\307\310\303 \"\307\311 \"\244\312\313\314 \315\312$*C\207" [window-system fontset-alias-alist completion-ignore-case fontset-list fboundp error "No fontsets being used" mapcar list #[(x) "AC\207" [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) "\203\n\304\305!\204\306\307!\207\310\220\212 q\210\311\305 \312\"\211\205: \203+\313\n@\314\"\210\2022\315\n@\316\261\210\nA\211\204\314*\221\207" [window-system standard-output fontsets arg fboundp fontset-list error "No fontsets being used" "*Help*" sort #[(x y) "\302!\302 !\231\207" [x y fontset-plain-name] 3] print-fontset nil "Fontset: " "\n"] 5 (#$ . 30985) "P"]) #@46 Display information about all input methods. (defalias 'list-input-methods #[nil "\300\220\301 \221\207" ["*Help*" list-input-methods-1] 2 (#$ . 31627) nil]) (defalias 'list-input-methods-1 #[nil "\204\306\307!\207\306\310!\210\306\311!\210\312\313\"\211\314\211 \205g @ A\n A@\232\2048 A@\306\n!\210\315 \210\306\316\317 @\320 8\211:\203Q\f@;\203Q\f@\202R\f)\321 8\322\323 \"\210\324\325 \")$!\210\202+\207" [input-method-alist elt language l title description 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-M.N.tar.gz', there should also\nbe a file `leim-M.N.tar.gz'. When you extract this file, LEIM files\nare put under the subdirectory `emacs-M.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@\231\207" [x y] 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) "\302\303\304\305\"\306 \307\310\261\207" [section-number title "########################################\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 "\306\220\212q\210\307\310\311\312\313\314\315\316\261\210 \203\317\320!\203\321c\210\322c\210\323\324\325\"\210\326\327 \330\261\210\331\n\330\261\210\332\333\334 \"\333\335\f\"\261\210\336 \330\261\210\323\337\340\"\210 \203]\341\342 !\333\343@\"\261\210\202d\344\345\346!\261\210\330c\210 \347=\203\213\350\351 \236A(\352\353(!\203\200\354\202\201\355\356(\261\210)\202\223\357\342\360 !\261\210\330c\210\323\361\362\"\210\363 \210\322c\210A\203\260\333\364A\"c\210\202\263\365c\210\323\366\367\"\210\370\371!\210\372\373!\210B\211C\203\336\372\333\374C@C@J#!\210CA\211C\204\310)\322c\210\323\375\376\"\210\377 \210\322c\210 \203%\317\320!\203%\323\201E\201F\"\210\201Gc\210\201Hc\210\320 \211D\203$\201ID@\371\"\210DA\211D\204)\201J )\221\207" [standard-output window-system system-configuration-options default-enable-multibyte-characters enable-multibyte-characters current-language-environment "*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" fboundp fontset-list " Section 6. Fontsets\n" "\n" insert-section 1 "General Information" "Version of this emacs:\n " emacs-version "\n\n" "Configuration options:\n " "Multibyte characters awareness:\n" format " default: %S\n" " current-buffer: %S\n\n" "Current language environment: " 2 "Display" "Window-system: " symbol-name "%s" "Terminal: " getenv "TERM" x font frame-parameters "The selected frame is using the " query-fontset "fontset" "font" ":\n " "Coding system of the terminal: " terminal-coding-system 3 "Input methods" list-input-methods-1 "Default input method: %s\n" "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" "%s:%s\n" 5 "Character sets" list-character-sets-2 window-system-version default-input-method coding-category-list l fontsets 6 "Fontsets" "Fontset-Name WDxHT Style\n" "------------ ----- -----\n" print-fontset print-help-return-message] 10 (#$ . 33074) nil]) #@116 Dump information about all charsets into the file `CHARSETS'. The file is saved in the directory `data-directory'. (defalias 'dump-charsets #[nil "\304\305\"\306\307\n!\204\310\311\n\"\210\312\n!\313\213\210\314 !\210* \205$\315 \207" [data-directory buf file noninteractive expand-file-name "CHARSETS" nil file-writable-p error "Can't write to file %s" find-file-noselect ((byte-code "\212q\210\304\305 \210\306 \210\307\310!\210\304\211\311 \210+\304\207" [buf buffer-read-only coding-system-for-write make-backup-files nil erase-buffer list-character-sets-2 insert-buffer-substring "*Help*" save-buffer] 2)) kill-buffer kill-emacs] 3 (#$ . 35798)]) #@121 Dump information about all coding systems into the file `CODINGS'. The file is saved in the directory `data-directory'. (defalias 'dump-codings #[nil "\304\305\"\306\307\n!\204\310\311\n\"\210\312\n!\313\213\210\314 !\210* \205$\315 \207" [data-directory buf file noninteractive expand-file-name "CODINGS" nil file-writable-p error "Can't write to file %s" find-file-noselect ((byte-code "\212q\210\304\305 \210\306\307!\210\310\311!\210\312 \210\310\311!\210\304\211\313 \210+\304\207" [buf buffer-read-only coding-system-for-write make-backup-files nil erase-buffer list-coding-systems t insert-buffer-substring "*Help*" list-coding-categories save-buffer] 2)) kill-buffer kill-emacs] 3 (#$ . 36468)])