;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (require 'help-mode)#@79 Print all arguments with single space separator in one line. (fn &rest ARGS) (defalias 'print-list #[128 "\300\301\302\303#!\210\300\304!\207" [princ mapconcat #[257 "\300\301\"\207" [prin1-to-string t] 4 "\n\n(fn ARG)"] " " "\n"] 6 (#$ . 104)]) (byte-code "\300\301\302\303\304!\305\306\307\310&\210\300\311\312\313\314\311\302\315&\207" [define-button-type sort-listed-character-sets help-echo purecopy "mouse-2, RET: sort on this column" face bold action #[257 "\300\301\302\"!\207" [sort-listed-character-sets button-get sort-key] 5 "\n\n(fn BUTTON)"] list-charset-chars :supertype help-xref help-function "mouse-2, RET: show table of characters for this character set"] 8)#@441 Display a list of all character sets. The D column contains the dimension of this character set. The CH column contains the number of characters in a block of this character set. The FINAL-BYTE column contains an ISO-2022 to use in the designation escape sequence for this character set in ISO-2022-based coding systems. With prefix ARG, the output format gets more cryptic, but still shows the full information. (fn ARG) (defalias 'list-character-sets #[257 "\306\307D\310\311!\"\210r\312\313!q\210p\314 \210\315\211\316\211\316\317 \210\320\321!+\210\211(r(q\210\2039\322 \202\215\323c\210\324\325\326 \205D\327\330Q!c\210\331c\210\332j\210\333c\210\334c\210\332j\210\335c\210\336\211\203\203\211@;\203m\211@c\210\202|\337@@\340\341\342@A%\210db\210\211A\262\202\\\343c\266\344c\210\345\346!)\347!)\210\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only help-setup-xref list-character-sets called-interactively-p interactive get-buffer-create "*Character Set List*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook list-character-sets-2 "Supplementary character sets are shown below.\n" substitute-command-keys "Use " display-mouse-p "\\[help-follow-mouse] or " "\\[help-follow]:\n" " on a column title to sort by that title," 48 "+----DIMENSION\n" " on a charset name to list characters." "| +--CHARS\n" (("CHARSET-NAME" . name) " " ("D CH FINAL-BYTE" . iso-spec)) insert-text-button :type sort-listed-character-sets sort-key "\n" "------------ - --- ----------\n" list-character-sets-1 name internal-temp-output-buffer-show standard-output] 11 (#$ . 794) "P"])#@17 (fn SORT-KEY) (defalias 'sort-listed-character-sets #[257 "\211\205\212\301eb\210\302\303!\210\304y\210`d|\210\305!*\207" [buffer-read-only nil search-forward "\n-" 1 list-character-sets-1] 3 (#$ . 2514)])#@126 Insert a list of character sets sorted by SORT-KEY. SORT-KEY should be `name' or `iso-spec' (default `name'). (fn SORT-KEY) (defalias 'list-character-sets-1 #[257 "\211\204\301\262\302\211\211\211\203<\211@\211\303!\304!\305!F\306\307!\310\"\203.\211B\262\210\2025\211B\262\210A\266\202\202\210\311\267\202K\312\202O\313\202O\314\315\"\262\316\"\262\316\"\262\317\320#\211\205\272\211@\211\321=\203\322c\210\323\324\325\326\327\330%\210\331c\210\202\260\323\332@!\333\334\327@C%\210db\210\335c\210\336j\210\337\340A@\3418#\3428\343W\203\252\344\202\255\3428\261\210\345c\210A\266\202\202b\207" [charset-list name nil charset-dimension charset-chars charset-iso-final-char plist-get charset-plist :supplementary-p #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (name 67 iso-spec 71)) #[514 "@@\231\207" [] 4 "\n\n(fn X Y)"] #[514 "A@A@W\206/A@A@U\205/\3008\3008W\206/\3008\3008U\205/\3018\3018W\207" [2 3] 5 "\n\n(fn X Y)"] error "Invalid charset sort key: %s" sort append (t) t "\n-------------- " insert-text-button "Supplementary Character Sets" type help-info help-args ("(emacs)Charsets") " --------------\nCharacter sets for defining other charsets, or for backward compatibility\n" symbol-name :type list-charset-chars " " 48 format "%d %3d " 2 3 0 "none" "\n"] 12 (#$ . 2732)]) (defalias 'list-character-sets-2 #[0 "\301c\210\211\205(\211@\302\303\304\305!\306!\307!\310!&!\210A\266\202\202\207" [charset-list "#########################\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-SYMBOL-NAME,\n## DIMENSION (1-4)\n## CHARS (number of characters in first dimension of charset)\n## ISO-FINAL-CHAR (character code of ISO-2022's final character)\n## -1 means that no final character is assigned.\n## DESCRIPTION (describing string of the charset)\n" princ format "%s:%d:%d:%d:%s\n" charset-dimension charset-chars charset-iso-final-char charset-description] 11]) (defvar charset-history nil)#@482 Read a character set from the minibuffer, prompting with string PROMPT. It must be an Emacs character set listed in the variable `charset-list'. 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. (fn PROMPT &optional DEFAULT-VALUE INITIAL-INPUT) (defalias 'read-charset #[769 "\301\302\"\303\304\305\306 &\211G\307V\205\310!\207" [charset-list mapcar #[257 "\300!C\207" [symbol-name] 3 "\n\n(fn X)"] completing-read nil t charset-history 0 intern] 12 (#$ . 4879)])#@28 (fn CHARSET ROW MIN MAX) (defalias 'list-block-of-chars #[1028 "\300\211\301\302\303\"\210\304c\210\305\262\306W\203 \307\310\"c\210T\262\202 \306\245\306_\262X\203\232\306\246\305U\203B\307\311\312_\\\306\245\"c\210W\203L\313\202Z\314\312_\\\"\206Z\313\262\211\313W\204h\211\315U\203p\316!\262\202\216\211\317Y\203\205\211\320W\203\205\307\321\"\262\202\216\211\322V\203\216\313\262\323\261\210T\262\202'\266\324c\207" [nil insert-char 45 71 "\n " 0 16 format "%4X" "\n%6Xx" 256 32 decode-char 127 single-key-description 128 160 "%02Xh" 1114111 " " "\n"] 10 (#$ . 5595)])#@70 Display a list of characters in character set CHARSET. (fn CHARSET) (defalias 'list-charset-chars #[257 "\306!\204\307\310\"\210r\311\312!q\210p\313 \210\314\211\315\211\315\316 \210\317\320!+\210\211'r'q\210\321!\203<\322!\210\323(!(\324(>\211\203U\211\325\326\"AB\241\210\210\327)\330\315!\210\331!\332\333!\334\"\314\211\211\211\335V\203t\307\336!\210\325\337\n\"c\210``}\210\340H\262\341H\262\341U\203\234\342 \340$\210\202\277\335H\262\343H\262\211X\203\276\342\n$\210\211T\262\202\247\210\344ed\345\f$\210~\266\206)\346!)\210\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only charsetp error "Invalid character set: %s" get-buffer-create "*Character List*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook coding-system-p set-buffer-file-coding-system copy-sequence mode-line-buffer-identification format " (%s)" 4 set-buffer-multibyte charset-dimension plist-get charset-plist :code-space 2 "Can only list 1- and 2-dimensional charsets" "Characters in the coded character set %s.\n" 0 1 list-block-of-chars 3 put-text-property charset internal-temp-output-buffer-show standard-output mode-line-format tab-width] 16 (#$ . 6225) (byte-code "\300\301!C\207" [read-charset "Character set: "] 2)])#@73 Display information about built-in character set CHARSET. (fn CHARSET) (defalias 'describe-character-set #[257 "\306\307!\204 \310\311\"\210\312\313D\314\315!\"\210 r\316\317 !q\210p\320 \210\321\211\306\211\306?\322 \210\323\324!+\210\211@r@q\210\325\326!\261\210\327\330\"\211=\204X\331\326!\332\261\210\210\333\334!\333\261\210\335c\210\336!\337\211W\203\211\211\337U\204w\340c\210\341\342\343T\"\"c\210\211T\262\202h\266\344c\210\345!\211\337V\203\240\346c\210\347\350\"c\210\210\321A\211\203\306\211@\211=\204\277\327\330\"=\203\277\211B\262A\266\202\202\244\210\211\203\325\351\352\326\353#\344\261\210\210\354\355\356\357\321\360E\361\362\363\364\365\352\366\367BBEE\370\371\372E\373BBBBBBB\211\2050\211@\327@\"\211\203(A@\203A@c\210\3748\203%\344\374BC\375\3748!p\"*\210\344c\210\210A\266\202\202\365)\262\376!)\210\266\202)\207" [help-buffer-under-preparation default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks t charsetp error "Invalid charset: %S" help-setup-xref describe-character-set called-interactively-p interactive get-buffer-create help-buffer kill-all-local-variables nil erase-buffer run-hooks temp-buffer-setup-hook "Character set: " symbol-name get-charset-property :name " (alias of " 41 "\n\n" charset-description "Number of contained characters: " charset-dimension 0 120 format "%d" charset-chars 10 charset-iso-final-char "Final char of ISO2022 designation sequence: " format-message "`%c'\n" "Aliases: " mapconcat ", " (:ascii-compatible-p "ASCII compatible." nil) (:map "Map file: " identity) (:unify-map "Unification map file: " identity) :invalid-code #[257 "\300\301\211#\207" [format "Invalid character: %c (code %d)"] 5 "\n\n(fn C)"] (:emacs-mule-id "Id in emacs-mule coding system: " number-to-string) :parents "Parents: " lambda (parents) #[257 "\300\301\"\207" [format "%s"] 4 "\n\n(fn ELT)"] (parents ", ") :code-space "Code space: " #[257 "\300\301\"\207" [format "%s"] 4 "\n\n(fn C)"] ((:code-offset "Code offset: " number-to-string) (:iso-revision-number "ISO revision number: " number-to-string) (:supplementary-p "Used only as a parent or a subset of some other charset,\nor provided just for backward compatibility." nil)) 2 princ internal-temp-output-buffer-show inhibit-read-only standard-output charset-list print-level print-length] 16 (#$ . 7587) (byte-code "\300\301!C\207" [read-charset "Charset: "] 2)])#@21 (fn DESIGNATIONS) (defalias 'print-designation #[257 "\301\302\211\303W\205\223\211H\262\304\305\306\307\267\202!\310\202R\311\202R9\2032\305\312\313 !#\202R<\203Q\314@!\203M\305\315@\313 @!#\202R\316\202R\317#!\210<\203\213A\262\203\213@\320=\203p\304\321!\210\202\204\314@!\203\204\304\305\322@\313@!#!\210A\262\202^)\211T\262\202\207" [graphic-register nil 0 4 princ format " G%d -- %s\n" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 25 t 29)) "never used" "no initial designation, and used by any charsets" "%s:%s" charset-description charsetp "%s:%s, and also used by the following:" "no initial designation, and used by the following:" "invalid designation information" t " any other charsets\n" " %s:%s\n"] 12 (#$ . 10067)])#@62 Display information about CODING-SYSTEM. (fn CODING-SYSTEM) (defalias 'describe-coding-system #[257 "\306\211\204\307 \202\241\310\311D\312\313!\"\210 r\314\315 !q\210p\316 \210\317\211\306\211\306@\320 \210\321\322!+\210\211A\323\324\"\210\325!\326\327!\210\326!\210\211\330\267\202\253\326\331!\210\202\257\326\332!\210\202\257\202\257\326\333!\210\202\257\326\334!\210\326\335!\210\336\337\340\"!\210\337\341\"\203\257\326\342!\210\343\344\337\341\"\"\210\202\257\326\345!\210\202\257\326\346!\210\202\257\326\347!\210\202\257\326\350!\210\202\257\202\257\326\351!\210\326\352!\210\353!\354!\203\314\326\355!\210\326!\210\326\356!\266\202\371\211\203\326\211\357=\203\336\326\360!\266\202\371\211\361\267\202\364\326\362!\266\202\371\326\363!\266\202\371\326\364!\266\337\365\"\211\203\326\366!\210\326\367!\210\326\370!\210\326!\210\326\356!\210\210\337\371\"\211\2032\326\372!\210\326\373!\210\326\370!\210\326!\210\326\356!\210\210rAq\210\374!\375!\376=?\205\225\211\205\225\211\377\267\202`\201Bc\202\225\201C\201D\261\202\225\201Ec\210\211\205\225\201F\201G@!\261\210\201H\201G@!!\210\201I\357\201J@#\210db\210\211A\262\202e)\262\201K!)\210\266\202)\207" [help-buffer-under-preparation default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks t describe-current-coding-system help-setup-xref describe-coding-system called-interactively-p interactive get-buffer-create help-buffer kill-all-local-variables nil erase-buffer run-hooks temp-buffer-setup-hook print-coding-system-briefly doc-string coding-system-type princ "Type: " #s(hash-table size 10 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (undecided 78 utf-8 85 utf-16 92 shift-jis 95 iso-2022 102 charset 140 ccl 147 raw-text 154 emacs-mule 161 big5 168)) " (do automatic conversion)" " (UTF-8: Emacs internal multibyte form)" " (Shift-JIS, MS-KANJI)" " (variant of ISO-2022)\n" "Initial designations:\n" print-designation coding-system-get :designation :flags "Other specifications: \n " apply print-list " (charset)" " (do conversion by CCL program)" " (text with random binary characters)" " (Emacs 21 internal encoding)" ": invalid coding-system." "\nEOL type: " coding-system-eol-type vectorp "Automatic selection from:\n " "\n" 0 "LF\n" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (1 228 2 236)) "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: " coding-system-charset-list coding-system-base raw-text #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (iso-2022 334 emacs-mule 341)) inhibit-read-only standard-output "This coding system can encode all ISO 2022 charsets." "This coding system can encode all emacs-mule charsets." "" "This coding system encodes the following charsets:\n " " " symbol-name search-backward help-xref-button help-character-set internal-temp-output-buffer-show] 10 (#$ . 10898) "zDescribe coding system (default current choices): "])#@1094 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 in 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 #[0 "\302p!\211\205\n\303!\304\305\306!\307!\306\310 !\307\310 !\306\311 !\307\311 !\306 @!\307\n@!\306A!\307\fA!\306\312\300!!\307\312\300!!\306 @!\307 @!\306 A!\307 A!&\207" [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 default-value] 21 (#$ . 14146) nil])#@304 Print symbol name and mnemonic letter of CODING-SYSTEM with `princ'. If DOC-STRING is non-nil, print also the docstring of CODING-SYSTEM. If DOC-STRING is `tightly', don't print an empty line before the docstring, and print only the first line of the docstring. (fn CODING-SYSTEM &optional DOC-STRING) (defalias 'print-coding-system-briefly #[513 "\204\300\301!\207\300\302\303\304!#!\210\305!@=\203/\211A\203f\300\302\306\307AB\"!\266\202g>\203A\300\302\310@\"!\266\202g\311!\311@!\250\203d\312!\203dH=\204d\300\302\310H\"!\210\266\210\300\313!\210\211\314=\204u\300\313!\210\211\205\243\315!\206\200\316\314=\203\231\317\313\"\203\224\211\320\211\224O\262\321P\262\300\302\322\323!\"!\262\207" [princ "nil\n" format "%c -- %s" coding-system-mnemonic coding-system-aliases " %S" alias: " (alias of %s)" coding-system-eol-type vectorp "\n" tightly coding-system-doc-string "" string-match 0 " " "%s\n" substitute-command-keys] 10 (#$ . 15804)])#@51 Display coding systems currently used, in detail. (defalias 'describe-current-coding-system #[0 "r\306\307!q\210p\310 \210\311\211\312\211\312\313 \210\314\315!+\210\211:\316p!\211\205,\317!\320\321!\210\322\323!\203>\324!\210\202B\320\325!\210\320\326!\210\324\327\323!!\210\320\330!\210\324\331 !\210\320\332!\210\324\333 !\210\334\335!\203m\320\336!\210\324!\210\316p!\203\211\320\337!\210\320\340!\210\324A!\210\320\341!\210\324@!\210\320\342!\210\320\343!\210\324;@!\210\320\344!\210\324;A!\266r:q\210\320\345!\210\346\347 \211\203\354\211@\320\350\351#!\210\352!@=\203\325\211A\203\335\320\353AB!\210\202\335\320\354\355@E!\210\356 \210T\262\210A\266\202\202\256\266\320\357!\210\320\360!\210\356 \210\320\361!\210\320\362!\210\363\211\364\365<=\"\"\210\211\366>\"\210\211\367?\"\266\370 )\371!)\210\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only get-buffer-create "*Help*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook 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 " default-value "Coding system for keyboard input:\n " keyboard-coding-system "Coding system for terminal output:\n " terminal-coding-system boundp selection-coding-system "Coding system for inter-client cut and paste:\n " "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 coding-system-priority-list format " %d. %s " coding-system-aliases 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" "Particular coding systems specified for certain file names:\n" " OPERATION TARGET PATTERN CODING SYSTEM(s)\n" " --------- -------------- ----------------\n" #[514 "\300\301!\210\300!\210\211\204\300\302!\207\211\205:\303j\210\304@@!\210i\305Y\203&\306 \210\305j\210\300@A!\210\300\307!\210\211A\262\202\207" [princ " " " nothing specified\n" 16 prin1 40 newline "\n"] 4 "\n\n(fn OPERATION ALIST)"] "File I/O" append "Process I/O" "Network I/O" help-mode internal-temp-output-buffer-show standard-output default-process-coding-system auto-coding-alist file-coding-system-alist process-coding-system-alist network-coding-system-alist] 11 (#$ . 16801) nil])#@66 Print detailed information on CODING-SYSTEM. (fn CODING-SYSTEM) (defalias 'print-coding-system #[257 "\300!\301!\302\303\"\304!\211@=\204\305\306\307@#!\207\305!\210\211A\211\2039\211@\305\310!\210\305!\210A\266\202\202$\210\305\306\311\312 !\250\203N\202O\313$!\210\314\267\202\\\315\316\317W\203\273H\262\211\320\267\202y\305\321!\210\202\260\305\322!\210\202\260\323!\203\206\305!\210\202\260\211<\203\260\305\324!\210\305@!\210\211A\262\211\203\254\305\310!\210\305@!\210\211A\262\202\230\305\325!\210\305\310!\210T\262\202Z\326W\203\332\305H\203\314\327\202\315\315!\210\305\310!\210T\262\202\273\305H\203\345\327\202\346\315!\266\202`\316\211@9\203\305\306\330@\"!\210\202 \315\262@G\262W\203 \305\306\331@H\"!\210T\262\202\305\310!\210A9\2037\305\306\332A\"!\266\202`\315\262AG\262W\203W\305\306\331AH\"!\210T\262\202?\266\202`\305\315!\210\305\333!\210\305\334!!\210\305\335!\207" [coding-system-type coding-system-eol-type coding-system-get :flags coding-system-aliases princ format "%s (alias of %s)\n" "," ":%s:%c:%d:" coding-system-mnemonic 3 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (iso2022 88 ccl 236)) 0 nil 4 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 107 t 114)) -1 -2 charsetp "(" ")" 12 1 " %s" " %x" "%s" ":" coding-system-doc-string "\n"] 12 (#$ . 19542)])#@253 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. (fn &optional ARG) (defalias 'list-coding-systems #[256 "r\306\307!q\210p\310 \210\311\211\312\211\312\313 \210\314\315!+\210\211\316!\317!)\210\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only get-buffer-create "*Help*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook list-coding-systems-1 internal-temp-output-buffer-show standard-output] 7 (#$ . 21023) "P"])#@12 (fn ARG) (defalias 'list-coding-systems-1 #[257 "\211\204\300\301!\210\202\300\302\303!!\210\304\305\306!!\211\2053\211@\204(\307\310\"\210\202,\311!\210A\266\202\202\207" [princ "###############################################\n# List of coding systems in the following format:\n# MNEMONIC-LETTER -- CODING-SYSTEM-NAME\n# DOC-STRING\n" substitute-command-keys "#########################\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 following:\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" sort-coding-systems coding-system-list base-only print-coding-system-briefly tightly print-coding-system] 6 (#$ . 21735)])#@42 Display a list of all coding categories. (defalias 'list-coding-categories #[0 "r\306\307!q\210p\310 \210\311\211\312\211\312\313 \210\314\315!+\210\211\316\317!\210\211\205>\316\320\321@@J#!\210\211A\262\202(\262\322!)\210\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only get-buffer-create "*Help*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ "############################\n## LIST OF CODING CATEGORIES (ordered by priority)\n## CATEGORY:CODING-SYSTEM\n##\n" format "%s:%s\n" internal-temp-output-buffer-show standard-output coding-category-list] 9 (#$ . 23193)])#@113 Print information about a font in FONT-INFO. The IGNORED argument is ignored. (fn FONT-INFO &optional IGNORED) (defalias 'describe-font-internal #[513 "\300\301\302H\"\210\300\303\304H\"\210\305H\203\300\306\305H\"\210\300\307\310\311\312H\"\"\210\300\313\310\311\314H\"\"\210\300\315\310\311\316H\"\"\210\300\317\310\311\320H\"\"\210\300\321\310\311\322H\"\"\210\300\323\310\311\324H\"\"\210\300\325\310\311\326H\"\"\210\300\327\310\311\330H\"\"\210\300\331\310\311\332H\"\"\210\300\333\310\311\334H\"\"\207" [print-list "name (opened by):" 0 " full name:" 1 12 " file name:" " size:" format "%2d" 2 " height:" 3 " baseline-offset:" 4 "relative-compose:" 5 " default-ascent:" 6 " ascent:" 8 " descent:" 9 " average-width:" 11 " space-width:" 10 " max-width:" 7] 8 (#$ . 23893)])#@73 Display information about a font whose name is FONTNAME. (fn FONTNAME) (defalias 'describe-font #[257 "\203\n\306\307!\204\310\311!\210\312D\313\314\203G\315U\203%\316\317\320\"\262\321!\262\211\204D\322\323\"\203>\324\325\326!\"\202y\324\327!\202y\330\331\332!\"\210\nr\333\334!q\210p\335 \210\313\211\314\211\314#$\336 \210\337\340!+\210\211%\341!\342!)\210\266\202)\207" [window-system help-buffer-under-preparation default-directory buffer-read-only buffer-file-name buffer-undo-list fboundp fontset-list error "No fonts being used" describe-font nil t 0 face-attribute default :font font-info fontp font-object message "No information about \"%s\"" font-xlfd-name "No matching font found" help-setup-xref called-interactively-p interactive get-buffer-create "*Help*" kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook describe-font-internal internal-temp-output-buffer-show inhibit-modification-hooks inhibit-read-only standard-output] 9 (#$ . 24757) (byte-code "\301\302\303\304\"\205\305\306!\205\305\307!\205\310\307 !\306\311!\244\"C\207" [window-system completing-read format-prompt "Font name" "current choice for ASCII chars" fboundp x-list-fonts fontset-list butlast "*"] 5)])#@14 (fn POINT) (defalias 'mule--kbd-at #[257 "\212\211b\210\300`\301\302w\303U\203`T\202`{!\303\234)\207" [kbd "^ " nil 0] 5 (#$ . 26011)])#@12 (fn VAL) (defalias 'print-fontset-element #[257 "\301 \210\302`!\303\304!\205\302\305\225!\306\307\310\311#\203\305\224\305\225|\210\312Y\204.\211\203B\211\312Y\203B\211\203<\313\314#c\210\202B\313\315\"c\210\211\205_\211@\211\204S\316c\210\202X\211@\211;\203c\317\261\266\2028\310\211\211\211\211\211\320\321!\203\243\321!\203\243\322\323\"\262\322\324\"\262\322\325\"\262\322\326\"\262\322\327\"\262\322\330\"\262\202\307\305H\262\331H\262\332H\262\333H\262\334H\262\335H\262\204\321\336\262\202\3529\203\334\337!\262\340\341\"\204\352\342P\262\204\364\336\262\2029\203\376\337!\262\340\341\"\204\211GSH\343U\204\344P\262\313\345\206\344\206%\344\206+\344\2061\344&c\266\346\300!\203X\203X\211A\211\203W\211@\347\350\261\210A\266\202\202D\210A\266\202\202C\207" [mule--print-opened beginning-of-line mule--kbd-at looking-at "[^.]+[.][.] " 0 re-search-forward "[ ]*$" nil t 128 format " (#x%02X .. #x%02X)" " (#x%02X)" "\n -- inhibit fallback fonts --" "\n " fboundp fontp font-get :family :registry :weight :slant :width :adstyle 5 1 2 3 4 "*-*" symbol-name string-search "-" "*-" 42 "*" "\n -%s-%s-%s-%s-%s-*-*-*-*-*-*-%s" boundp "\n [" "]"] 20 (#$ . 26158)])#@315 Print information about FONTSET. FONTSET nil means the fontset of the selected frame, t means the default fontset. If optional arg PRINT-OPENED is non-nil, also print names of all opened fonts for FONTSET. This function actually inserts the information in the current buffer. (fn FONTSET &optional PRINT-OPENED) (defalias 'print-fontset #[513 "\301=\203\302\303!\262\202\204\304\305\306\"\262\307 \210``}\210\310\311\261\210\312\313\314\315#\316\312\317\314\315#\320\261\210\321\312\322\314\315#\316\312\323\314\315#\324\312\325\314\315#\326\261\210\327!\330\331\"\332\211\211\211\333\334\"\210\335\332\"\203\203\336\337!\262`\340 |\210\341c\210\342\343 `\314\344$\210db\210`\211\262\262\203\263\345c\210\342\343 `\314\344$\210\333\334\"\210\335\332\"\203\263\336\337!\262`\340 |\210\346c\210\342\343 `\314\344$\210\203\302\211\203\302\347$\210db)\266~\207" [mule--print-opened t query-fontset "fontset-default" face-attribute default :fontset beginning-of-line "Fontset: " "\n" propertize "CHAR RANGE" face underline " (" "CODE RANGE" ")\n" " " "FONT NAME" "REQUESTED" " and [" "OPENED" "])" fontset-info char-table-extra-slot 0 nil describe-vector print-fontset-element char-table-range re-search-backward "^default" line-end-position "\n ------" put-text-property line-beginning-position highlight "\n ------" "\n ------" transpose-regions] 13 (#$ . 27464)])#@104 Display information about FONTSET. This shows which font is used for which character(s). (fn FONTSET) (defalias 'describe-fontset #[257 "\306\211G\307U\203\310\311\312\"\262\202\313!\262\314\315D\316\317!\"\210 r\320\321 !q\210p\322 \210\323\211\306\211\306\324 \210\325\326!+\210\211rq\210\327\306\")\330!)\210\266\202)\207" [help-buffer-under-preparation default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks t 0 face-attribute default :fontset query-fontset help-setup-xref describe-fontset called-interactively-p interactive get-buffer-create help-buffer kill-all-local-variables nil erase-buffer run-hooks temp-buffer-setup-hook print-fontset internal-temp-output-buffer-show inhibit-read-only standard-output] 7 (#$ . 29011) (byte-code "\203\n\303\304!\204\305\306!\207\304 \307\310 \"\244\311\312\313\314\315\"\316\311$)C\207" [window-system fontset-alias-alist completion-ignore-case fboundp fontset-list error "No fontsets being used" mapcar cdr t completing-read format-prompt "Fontset" "used by the current frame" nil] 6)])#@225 Display a list of all fontsets. This shows the name, size, and style of each fontset. With prefix arg, also list the fonts contained in each fontset; see the function `describe-fontset' for the format of the list. (fn ARG) (defalias 'list-fontsets #[257 "\306 \203\f\307\310!\204\311\312!\202s\313\314D\315\316!\"\210\nr\317\320 !q\210p\321 \210\322\211\306\211\306\323 \210\324\325!+\210\211rq\210\326\310 \327\"\211\205i\203[\330@\322\"\210\202b\331@\332\261\210\211A\262\202J)\262\333!)\210\266\202)\207" [help-buffer-under-preparation window-system default-directory buffer-read-only buffer-file-name buffer-undo-list t fboundp fontset-list error "No fontsets being used" help-setup-xref list-fontsets called-interactively-p interactive get-buffer-create help-buffer kill-all-local-variables nil erase-buffer run-hooks temp-buffer-setup-hook sort #[514 "\300!\300!\231\207" [fontset-plain-name] 5 "\n\n(fn X Y)"] print-fontset "Fontset: " "\n" internal-temp-output-buffer-show inhibit-modification-hooks inhibit-read-only standard-output] 8 (#$ . 30124) "P"])#@46 Display information about all input methods. (defalias 'list-input-methods #[0 "\306\307\310\311\312!\"\210 r\313\314 !q\210p\315 \210\316\211\306\211\306\317 \210\320\321!+\210\211\322 \210rq\210\212eb\210\323\324\325!\316\306#\205N\326\327\330\331\327!#\210\2029*\332!)\210\266\202)\207" [help-buffer-under-preparation default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks t help-setup-xref (list-input-methods) called-interactively-p interactive get-buffer-create help-buffer kill-all-local-variables nil erase-buffer run-hooks temp-buffer-setup-hook list-input-methods-1 re-search-forward substitute-command-keys "^ \$[^ ]+\$ (`.*' in mode line)$" help-xref-button 1 help-input-method match-string internal-temp-output-buffer-show inhibit-read-only standard-output] 8 (#$ . 31226) nil]) (defalias 'list-input-methods-1 #[0 "rq\210 \204 \302c\202o\303\304!c\210\305c\210\306 \307\"\310 \211\205k\211@A@\232\2049\211A@\262\311\312\313\314#\315\261\210\316\317@\3208\211:\203P\211@;\203P\211@\202Q\211\262\321\322\323\303\324 8\206_\325!#$c\210A\266\202\202\262\262)\207" [standard-output input-method-alist "\nNo input method is available.\n\nThis might indicate a problem with your Emacs installation, as\nLEIM (Libraries of Emacs Input Method) should normally always be\ninstalled together with Emacs." substitute-command-keys "LANGUAGE\n NAME (`TITLE' in mode line)\n" " SHORT-DESCRIPTION\n------------------------------\n" sort #[514 "A@A@\231\207" [] 4 "\n\n(fn X Y)"] nil "\n" propertize face help-for-help-header "\n\n" format-message " %s (`%s' in mode line)\n %s\n" 3 replace-regexp-in-string "\n\$.\$" "\n \\1" 4 ""] 13])#@29 (fn SECTION-NUMBER TITLE) (defalias 'insert-section #[514 "\300\301\302\303\"\304\305\306\261\207" ["########################################\n" "# Section " format "%d" ". " "\n" "########################################\n\n"] 9 (#$ . 32965)])#@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 #[0 "r\306\307!q\210p\310 \210\311\211\312\211\312\313 \210\314\315!+\210\211@r@q\210\316\317\320\321\322\323\324\325\261\210A\203@\326\327!\203@\330c\210\331c\210\332\333\334\"\210\335\336 \337\261\210\340B\337\261\210\341\342\343C\"\261\210\344D\337\261\210\332\345\346\"\210A\203z\342\347A\"c\210\202\201\350\351\352!\261\210\337c\210A\203\236\353\311\354\"\355\356\331\357\360\361\362\"\331\261\266\202\246\363\364\365 !\261\210\337c\210\332\366\367\"\210\370 \210\331c\210E\203\303\342\371E\"c\210\202\306\372c\210\332\373\374\"\210\375\312!\210\331c\210\332\376\377\"\210\201F \210\331c\210A\203\326\327!\203\332\201G\201H\"\210\201Ic\210\201Jc\210\327 \211\203\211@\201K\312\"\210\331c\210A\266\202\202\377\210\201L )\201M!)\210\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only get-buffer-create "*Mule-Diagnosis*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook "###############################################\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 " current-buffer: %S\n\n" "Current language environment: " 2 "Display" "Window-system: %s" "Terminal: " getenv "TERM" frame-parameter font "The font and fontset of the selected frame are:\n" " font: " " fontset: " face-attribute default :fontset "Coding system of the terminal: " symbol-name 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 5 "Character sets" standard-output window-system system-configuration-options enable-multibyte-characters current-language-environment default-input-method list-character-sets-2 6 "Fontsets" "Fontset-Name WDxHT Style\n" "------------ ----- -----\n" print-fontset help-print-return-message internal-temp-output-buffer-show] 12 (#$ . 33222) nil])#@192 Show log of font listing and opening. Prefix arg LIMIT says how many fonts to show for each listing. The default is 20. If LIMIT is negative, do not limit the listing. (fn &optional LIMIT) (defalias 'font-show-log #[256 "\211C\211\242\203\306\242!\202\307\240\210\310=\203\311\312!\207 r\313\314!q\210p\315 \210\316\211\310\211\310\317 \210\320\321!+\210\211\211q\210\322!\211\205\207\211@\323\324@A@#c\210\3258\262\326!\204e\211<\203z\327C\3302u\331\332\333 #\"0\266\202\200\323\334\"c\210A\266\202\202E\262\335!)\210\207" [font-log default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks prefix-numeric-value 20 t message "Font logging is currently suppressed" get-buffer-create "*Help*" kill-all-local-variables nil erase-buffer run-hooks temp-buffer-setup-hook reverse format "%s: %s\n" 2 vectorp 0 tag mapc make-closure #[257 "\300\211\242T\240\210\300\242\301\242U\203\302c\210\303\304\305\"\210\306\307\"c\207" [V0 V1 " ...\n" throw tag nil format " %s\n"] 4 "\n\n(fn X)"] " %s\n" internal-temp-output-buffer-show inhibit-read-only standard-output] 13 (#$ . 35970) "P"]) (provide 'mule-diag)