;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; 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 (#$ . 105)])
(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 <final-byte> 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 (#$ . 796) "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 (#$ . 2517)])
#@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\210
A\266\202\202\210\311\267\202K\312\202O\313\202O\314\315\"\262
\316\"\262\316\"\262\317\320C#\211\205\273\211@\211\320=\203\200\321c\210\322\323\324\325\326\327%\210\330c\210\202\261\322\331@!\332\333\326@C%\210db\210\334c\210\335j\210\336\337A@\3408#\3418\342W\203\253\343\202\256\3418\261\210\344c\210
A\266\202\202c\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 "\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 (#$ . 2736)])
(defalias 'list-character-sets-2 #[0 "\301c\210\211\205(\211@\302\303\304\305!\306!\307!\310!&!\210
A\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 (#$ . 4884)])
#@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\210
T\262\202
\306\245\306_\262
X\203\232
\306\246\305U\203B\307\311\312_\\\306\245\"c\210
W\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\210
T\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 (#$ . 5601)])
#@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 (#$ . 6232) (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
!\204\307\310\"\210\311\312D\313\314!\"\210r\315\316 !q\210p\317 \210
\320\211\321\211\321\322 \210\323\324!\210+\211?r?q\210\325\326!\261\210\327\330\"\211=\204U\331\326!\332\261\210\210\333\334!\333\261\210\335c\210\336!\337\211W\203\206\211\337U\204t\340c\210\341\342\343T\"\"c\210\211T\262
\202e\266\344c\210\345!\211\337V\203\235\346c\210\347\350\"c\210\210\320@\211\203\303\211@\211=\204\274\327\330\"=\203\274\211B\262
A\266\202\202\241\210\211\203\322\351\352\326\353#\344\261\210\210\354\355\356\357\320\360E\361\362\363\364\365\352\366\367BBEE\370\371\372E\373BBBBBBB\211\205-
\211@\327@\"\211\203%

A@\203\f

A@c\210\3748\203\"
\344\374AB\375\3748!p\"\210*\344c\210\210
A\266\202\202\362\262
)\376!\210)\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only 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 t 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 standard-output charset-list print-level print-length] 16 (#$ . 7595) (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\213
A\262
\203\213
@\320=\203p\304\321!\210\202\204\314@!\203\204\304\305\322@\313@!#!\210
A\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 (#$ . 10033)])
#@62 Display information about CODING-SYSTEM.

(fn CODING-SYSTEM)
(defalias 'describe-coding-system #[257 "\211\204\306 \207\307\310D\311\312!\"\210r\313\314 !q\210p\315 \210
\316\211\317\211\317\320 \210\321\322!\210+\211@\323\324\"\210\325!\326\327!\210\326
!\210\211\330\267\202\246\326\331!\210\202\252\326\332!\210\202\252\202\252\326\333!\210\202\252\326\334!\210\326\335!\210\336\337\340\"!\210\337\341\"\203\252\326\342!\210\343\344\337\341\"\"\210\202\252\326\345!\210\202\252\326\346!\210\202\252\326\347!\210\202\252\326\350!\210\202\252\202\252\326\351!\210\326\352!\210\353!\354
!\203\307\326\355!\210\326
!\210\326\356!\266\202\364\211\203\321\211\357=\203\331\326\360!\266\202\364\211\361\267\202\357\326\362!\266\202\364\326\363!\266\202\364\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\203-
\326\372!\210\326\373!\210\326\370!\210\326
!\210\326\356!\210\210r@q\210\374!\375!\376=?\205\220
\211\205\220
\211\377\267\202[
\201Ac\202\220
\201B\201C\261\202\220
\201Dc\210\211\205\220
\201E\201F@!\261\210\201G\201F@!!\210\201H\357\201I@#\210db\210\211A\262
\202`
\262
)\201J!\210)\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only describe-current-coding-system help-setup-xref describe-coding-system called-interactively-p interactive get-buffer-create help-buffer kill-all-local-variables nil t 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 73 utf-8 80 utf-16 87 shift-jis 90 iso-2022 97 charset 135 ccl 142 raw-text 149 emacs-mule 156 big5 163)) " (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 223 2 231)) "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 329 emacs-mule 336)) 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 (#$ . 10865) "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 (#$ . 14063) 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
!\203d
H=\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
\321
P\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 (#$ . 15722)])
#@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\324
A!\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\210
A\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 (#$ . 16720) 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
!\210
A\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!\210
T\262\202Z
\326W\203\332\305H\203\314\327\202\315\315!\210\305\310!\210
T\262\202\273\305H\203\345\327\202\346\315!\266\202`
\316\211@9\203
\305\306\330@\"!\210\202 
\315\262@G\262


W\203 
\305\306\331@H\"!\210
T\262\202
\305\310!\210A9\2037
\305\306\332A\"!\266\202`
\315\262AG\262


W\203W
\305\306\331AH\"!\210
T\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 (#$ . 19462)])
#@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 (#$ . 20944) "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
!\210
A\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 (#$ . 21657)])
#@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 (#$ . 23116)])
#@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 (#$ . 23817)])
#@73 Display information about a font whose name is FONTNAME.

(fn FONTNAME)
(defalias 'describe-font #[257 "\203\n\306\307!\204\310\311!\210\312
D\313\203G\314U\203#\315\316\317\"\262\320!\262
\211\204>\321\322\"\203:\323\324\325!\"\207\323\326!\207\327\330\331!\"\210	r\332\333!q\210p\334 \210
\313\211\335\211\335#\336 \210\337\340!\210+\211$\341!\342!\210)\207" [window-system default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks fboundp fontset-list error "No fonts being used" describe-font nil 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 t erase-buffer run-hooks temp-buffer-setup-hook describe-font-internal internal-temp-output-buffer-show inhibit-read-only standard-output] 9 (#$ . 24682) (byte-code "\301\302\205\303\304!\205\303\305!\205\306\305 !\304\307!\244\"C\207" [window-system completing-read "Font name (default 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 (#$ . 25873)])
#@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\202
9\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\210
A\266\202\202D
\210
A\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 (#$ . 26021)])
#@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\210)\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  ---<fallback to the default of the specified fontset>---" put-text-property line-beginning-position highlight "\n  ---<fallback to the default fontset>---" "\n  ---<fallback to the default of the default fontset>---" transpose-regions] 13 (#$ . 27328)])
#@104 Display information about FONTSET.
This shows which font is used for which character(s).

(fn FONTSET)
(defalias 'describe-fontset #[257 "\211G\306U\203\307\310\311\"\262
\202\312
!\262
\313\314D\315\316!\"\210r\317\320 !q\210p\321 \210
\322\211\323\211\323\324 \210\325\326!\210+\211rq\210\327\323\")\330!\210)\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only 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 t erase-buffer run-hooks temp-buffer-setup-hook print-fontset internal-temp-output-buffer-show standard-output] 7 (#$ . 28880) (byte-code "\203\n\303\304!\204\305\306!\207\304 \307\310	\"\244\311\312\313\314\311$)C\207" [window-system fontset-alias-alist completion-ignore-case fboundp fontset-list error "No fontsets being used" mapcar cdr t completing-read "Fontset (default 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 "\203\n\306\307!\204\310\311!\207\312\313D\314\315!\"\210	r\316\317 !q\210p\320 \210
\321\211\322\211\322\323 \210\324\325!\210+\211rq\210\326\307 \327\"\211\205d\203V\330
@\321\"\210\202]\331
@\332\261\210\211A\262
\202E\262
)\333!\210)\207" [window-system default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks 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 t 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-read-only standard-output] 8 (#$ . 29935) "P"])
#@46 Display information about all input methods.
(defalias 'list-input-methods #[0 "\306\307\310\311!\"\210r\312\313 !q\210p\314 \210
\315\211\316\211\316\317 \210\320\321!\210+\211\322 \210rq\210\212eb\210\323\324\325!\315\316#\205K\326\327\330\331\327!#\210\2026*\332!\210)\207" [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only help-setup-xref (list-input-methods) called-interactively-p interactive get-buffer-create help-buffer kill-all-local-variables nil t 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 standard-output] 8 (#$ . 30990) nil])
(defalias 'list-input-methods-1 #[0 "\204\301\302!\207\301\303\304!!\210\301\305!\210\306\307\"\310\211\205f\211@
A@\232\2043\211A@\262\301!\210\311 \210\301\312\313@\3148\211:\203K\211@;\203K\211@\202L\211\262
\315\316\317\303\320\n8\206Z\321!#$!\210
A\266\202\202\207" [input-method-alist princ "\nNo input method is available, perhaps because you have not\ninstalled LEIM (Libraries of Emacs Input Methods)." 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 terpri format-message "  %s (`%s' in mode line)\n    %s\n" 3 replace-regexp-in-string "\n\\(.\\)" "\n    \\1" 4 ""] 14])
#@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 (#$ . 32535)])
#@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\210
A\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 (#$ . 32793) 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\325
8\262
\326
!\204e\211<\203z\327C\3302u\331\332\333#\"0\266\202\200\323\334\"c\210
A\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 "\301\211\242T\240\210\301\242\300\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 (#$ . 35542) "P"])
(provide 'mule-diag)