Current File : //usr/share/emacs/24.3/lisp/international/mule-diag.elc

;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:09:11 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/international/mule-diag.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'help-mode)
#@62 Print all arguments with single space separator in one line.
(defalias 'print-list #[(&rest args) "\301\302\303\304#!\210\301\305!\207" [args princ mapconcat #[(arg) "\301\302\"\207" [arg prin1-to-string t] 3] " " "\n"] 5 (#$ . 587)])
(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 #[(button) "\301\302\303\"!\207" [button sort-listed-character-sets button-get sort-key] 4] list-charset-chars :supertype help-xref help-function "mouse-2, RET: show table of characters for this character set"] 8)
#@431 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.
(defalias 'list-character-sets #[(arg) "\306\307D\310\311!\"\210	r\312\313!q\210p\314 \210\n\315\211\316\211\316()\317 \210\320\321!\210+\211*+r+q\210\203>\322 \202\235\323c\210\324\325\326 \205I\327\330Q!c\210\331c\210\332j\210\333c\210\334c\210\332j\210\335c\210\336\315,\211-\203\223-@;\203y-@c\210\202\212\337-@@\340\341\342-@A%\210db\210-A\211-\204j\343c\210*\344c\210\345\346!)\347*!\210+\207" [arg default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list 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 inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output pos columns] 7 (#$ . 1260) "P"])
(defalias 'sort-listed-character-sets #[(sort-key) "\205\212\302eb\210\303\304!\210\305y\210`d|\210\306!*\207" [sort-key buffer-read-only nil search-forward "\n-" 1 list-character-sets-1] 2])
#@111 Insert a list of character sets sorted by SORT-KEY.
SORT-KEY should be `name' or `iso-spec' (default `name').
(defalias 'list-character-sets-1 #[(sort-key) "\204\306	\307\211\211\211*	\307\211+\203K+@\211\310!\311!\312!F,\313\314!\315\"\203<,\fB\202A,
B)+A\211+\204*\306=\203V\316\202d\317=\203`\320\202d\321\322\"\323
\n\"\323\f\n\"\324
\325C\f#\307,\211+\205\336+@\211,\325=\203\232\326c\210\327\330\331\332\333\334%\210\335c\210\202\321\327\336,@!\337\340\333,@C%\210db\210\341c\210\342j\210\343\344,A@\345,8#\346,8\347W\203\312\350\202\316\346,8\261\210\351c\210+A\211+\204~\307.\207" [sort-key charset-list sort-func charset supplementary-list charset-info-list name nil charset-dimension charset-chars charset-iso-final-char plist-get charset-plist :supplementary-p #[(x y) "@	@\231\207" [x y] 2] iso-spec #[(x y) "A@	A@W\206/A@	A@U\205/\3028\302	8W\206/\3028\302	8U\205/\3038\303	8W\207" [x y 2 3] 3] 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" tail --dolist-tail-- elt] 7 (#$ . 3223)])
(defalias 'list-character-sets-2 #[nil "\303c\210\304\211\205*\n@\305\306\307	\310	!\311	!\312	!\313	!&!\210\nA\211\204\304*\207" [charset-list charset --dolist-tail-- "#########################\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" nil princ format "%s:%d:%d:%d:%s\n" charset-dimension charset-chars charset-iso-final-char charset-description] 10])
#@11 Obsolete.
(defvar non-iso-charset-alist nil (#$ . 5347))
(make-obsolete-variable 'non-iso-charset-alist "no longer relevant." "23.1")
#@145 Decode a character that has code CODE in CODEPAGE.
Return a decoded character string.  Each CODEPAGE corresponds to a
coding system cpCODEPAGE.
(defalias 'decode-codepage-char #[(codepage code) "\302\303\304\305\"!	\"\207" [codepage code decode-char intern format "cp%d"] 5 (#$ . 5488)])
(make-obsolete 'decode-codepage-char 'decode-char "23.1")
(defvar charset-history nil)
#@431 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.
(defalias 'read-charset #[(prompt &optional default-value initial-input) "\306\307\"\310\n	\311\312\313\f&\211G\314V\205\315
!*\207" [charset-list table prompt initial-input default-value charset mapcar #[(x) "\301!C\207" [x symbol-name] 2] completing-read nil t charset-history 0 intern] 9 (#$ . 5871)])
(defalias 'list-block-of-chars #[(charset row min max) "\306\211\307\310\311\"\210\312c\210\313\211\314W\203!\315\316	\"c\210	T\211\202\n\314\245\314_\211X\203\223	\314\246\313U\203A\315\317\f\320_	\\\314\245\"c\210	\nW\203K\321\202W\322
\f\320_	\\\"\206W\321\211\321W\204d\323U\203k\324!\202\207\325Y\203\326W\203\315\327\"\202\207\330V\203\207\321\331\261\210	T\211\202(*\332c\207" [ch i min max row charset 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"] 5])
#@56 Display a list of characters in character set CHARSET.
(defalias 'list-charset-chars #[(charset) "\306!\204\307\310\"\210	r\311\312!q\210p\313 \210\n\314\211\315\211\315'(\316 \210\317\320!\210+\211)*r*q\210\321!\203A\322!\210\323+!+\324+>\211,\203],\325\326\",AB\241\210)\327-\330\315!\210\331!\332!\333\334\335!\336\"\314\211\211\211./01234\2115\337V\203\220\307\340!\210\325\341\"c\210``}\2102\342H12\333H05\333U\203\271\343\34210$\210\202\3442\337H/2\344H./\2116.X\203\343\343610$\2106T\2116\202\312)\345ed\300$\210~.	\346)!\210+\207" [charset default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list 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 charset-chars 1 plist-get charset-plist :code-space 2 "Can only list 1- and 2-dimensional charsets" "Characters in the coded character set %s.\n" 0 list-block-of-chars 3 put-text-property internal-temp-output-buffer-show inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output mode-line-format slot tab-width max2 min2 max min range plane chars dim i] 9 (#$ . 7210) (list (read-charset "Character set: "))])
#@59 Display information about built-in character set CHARSET.
(defalias 'describe-character-set #[(charset) "\306!\204\307\310\"\210\311\312D\313\314!\"\210	r\315\316 !q\210p\317 \210\n\320\211\321\211\321>?\322 \210\323\324!\210+\211@ArAq\210\325\326!\261\210\327\330\"\211B=\204]\331\326B!\332\261\210)\333\334!\333\261\210\335c\210\336!\337CDCDW\203\227C\337U\204\203\340c\210\341\342\343CT\"\"c\210CT\211C\202s*\344c\210\345!\211E\337V\203\260\346c\210\341\347E\"c\210)\320FG\320H\211I\203\344I@\211H=\204\333\327H\330\"=\203\333HFBFIA\211I\204\277*F\203\365\350\351\326F\352#\344\261\210)\353\354\355\356\320\357E\360\361\362\363\364\351\365\366BBEE\367\370\371E\372BBBBBBB\320J\211I\205k
I@J\327J@\"\211K\203`
J\211LA@)\203D
J\211LA@)c\210\373J8\203]
\344\373MN\374\373J8K!p\"\210*\344c\210)IA\211I\204
\320+\375@!\210+\207" [charset default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list 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: " "`%c'\n" "Aliases: " mapconcat ", " (:ascii-compatible-p "ASCII compatible." nil) (:map "Map file: " identity) (:unify-map "Unification map file: " identity) :invalid-code #[(c) "\301\302\211#\207" [c format "Invalid character: %c (code %d)"] 4] (:emacs-mule-id "Id in emacs-mule coding system: " number-to-string) :parents "Parents: " lambda (parents) #[(elt) "\301\302\"\207" [elt format "%s"] 3] (parents ", ") :code-space "Code space: " #[(c) "\301\302\"\207" [c format "%s"] 3] ((:code-offset "Code offset: " number-to-string) (:iso-revision-number "ISO revision number: " number-to-string) (:supplementary-p "Used only as a parent of some other charset." nil)) 2 princ internal-temp-output-buffer-show inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output name i --dotimes-limit-- char aliases charset-list c --dolist-tail-- elt val x print-level print-length] 13 (#$ . 8639) (list (read-charset "Charset: "))])
(defalias 'print-designation #[(designations) "\304\305\306	\nW\205\220	H\307\310\311	\204\312\202R\313=\203&\314\202R9\2035\310\315\316!#\202R<\203Q\317@!\203M\310\320@\316@!#\202R\321\202R\322#!\210<\203\211A\211\203\211@\313=\203o\307\323!\210\202\202\317@!\203\202\307\310\324@\316@!#!\210A\211\204a	T\211\202+\207" [charset graphic-register --dotimes-limit-- designations nil 4 0 princ format "  G%d -- %s\n" "never used" t "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" "	any other charsets\n" "	%s:%s\n"] 10])
#@42 Display information about CODING-SYSTEM.
(defalias 'describe-coding-system #[(coding-system) "\204\306 \207\307\310D\311\312!\"\210	r\313\314 !q\210p\315 \210\n\316\211\317\211\317@A\320 \210\321\322!\210+\211BC\323\324\"\210\325!\326!DE\327\330!\210\327E!\210E\331=\203^\327\332!\210\202\360E\333=\203l\327\334!\210\202\360E\335=\204\360E\336=\203\201\327\337!\210\202\360E\340=\203\255\327\341!\210\327\342!\210\343\344\345\"!\210\344\346\"\203\360\327\347!\210\350\351\344\346\"\"\210\202\360E\352=\203\273\327\353!\210\202\360E\354=\203\311\327\355!\210\202\360E\356=\203\327\327\357!\210\202\360E\360=\203\345\327\361!\210\202\360E\362=\204\360\327\363!\210\327\364!\210\365!F\366F!\203
\327\367!\210\327F!\210\327\370!\210\202C
F\203
F\371=\203#
\327\372!\210\202C
F\373=\2031
\327\374!\210\202C
F\375=\203?
\327\376!\210\202C
\327\377!\210+\344\201J\"\211G\203k
\327\201K!\210\327\201L!\210\327\201M!\210\327G!\210\327\370!\210)\344\201N\"\211H\203\223
\327\201O!\210\327\201P!\210\327\201M!\210\327H!\210\327\370!\210)rCq\210\201Q!I\201R!\356=?\205\fI\205\fI\340=\203\276
\201Sc\202\fI\360=\203\320
\201T\201U\261\202\f\201Vc\210I\205\f\201W\201XI@!\261\210\201Y\201XI@!!\210\201Z\371\201[I@#\210db\210IA\211I\204\332
\316*\201\\B!\210+\207" [coding-system default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list 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 coding-system-plist princ "Type: " undecided " (do automatic conversion)" utf-8 " (UTF-8: Emacs internal multibyte form)" utf-16 shift-jis " (Shift-JIS, MS-KANJI)" iso-2022 " (variant of ISO-2022)\n" "Initial designations:\n" print-designation coding-system-get :designation :flags "Other specifications: \n  " apply print-list charset " (charset)" ccl " (do conversion by CCL program)" raw-text " (text with random binary characters)" emacs-mule " (Emacs 21 internal encoding)" big5 ": invalid coding-system." "\nEOL type: " coding-system-eol-type vectorp "Automatic selection from:\n	" "\n" 0 "LF\n" 1 "CRLF\n" 2 "CR\n" "invalid\n" inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output extra-spec type eol-type postread prewrite charsets :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 "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] 6 (#$ . 11791) "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 #[nil "\304p!\211\205\305!\306\307\310\n!\311\n!\310\312 !\311\312 !\310\313 !\311\313 !\310	@!\311	@!\310	A!\311	A!\310\314\302!!\311\314\302!!\310@!\311@!\310A!\311A!&*\207" [proc process-coding-systems 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] 20 (#$ . 14882) nil])
#@263 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.
(defalias 'print-coding-system-briefly #[(coding-system &optional doc-string) "\204\306\307!\207\306\310\311\312!#!\210\313!	@=\203/	A\203f\306\310\314\315	AB\"!\210\202f	>\203@\306\310\316	@\"!\210\202f\317!\317	@!\211\250\203e\320\n!\203e\nH=\204e\306\310\316\nH\"!\210*)\306\321!\210\f\322=\204u\306\321!\210\f\205\237\323!\206\200\324\f\322=\203\230\325\321
\"\203\224
\326\211\224O\327
P\306\310\330
\"!)\207" [coding-system aliases base-eol-type eol-type doc-string doc 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"] 6 (#$ . 16569)])
#@51 Display coding systems currently used, in detail.
(defalias 'describe-current-coding-system #[nil "r\306\307!q\210p\310 \210	\311\211\312\211\3129\313 \210\314\315!\210+\211:;\316p!\211<\2053\317<!=\320\321!\210\322\323!\203G\324!\210\202K\320\325!\210\320\326!\210\324\327\323!!\210\320\330!\210\324\331 !\210\320\332!\210\324\333 !\210\334\335!\203v\320\336!\210\324!\210\316p!\203\224\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!\210*r;q\210\320\345!\210\346?\347 \311@\211A\203
A@@\320\350\351?@#!\210\352@!B@B@=\203\363BA\203\374\320\353BAB!\210\202\374\320\354\355B@E!\210\356 \210?T?)AA\211A\204\304+\320\357!\210\320\360!\210\356 \210\320\361!\210\320\362!\210\363\211C\364D\"\210C\365E\"\210C\366F\"\210)\367 )\370:!\210+\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks 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" #[(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 internal-temp-output-buffer-show inhibit-read-only #2=#:buf standard-output proc process-coding-systems default-process-coding-system i elt --dolist-tail-- aliases func file-coding-system-alist process-coding-system-alist network-coding-system-alist] 6 (#$ . 17569) nil])
#@46 Print detailed information on CODING-SYSTEM.
(defalias 'print-coding-system #[(coding-system) "\306!\307!\310\311\"\312!	@=\204#\313\314\315	@#!\202\235
\313!\210	A\316\211%\203F%@\313\317!\210\313
!\210%A\211%\2041*\313\314\320\f\321!\250\203W\202X\322$!\210\f\323=\203
\324\316&\211'\325W\203\330\n'H\211&\204~\313\326!\210\202\313&\327=\203\214\313\330!\210\202\313\331&!\203\233\313&!\210\202\313&<\203\313\313\332!\210\313&@!\210&A\211&\203\307\313\317!\210\313&@!\210&A\211&\204\264\313\333!\210\313\317!\210'T\211'\202h'\334W\203\373\313\n'H\203\353\335\202\354\324!\210\313\317!\210'T\211'\202\332\313\n'H\203
\335\202
\324!\210*\202\220
\f\336=\203\214
\316\211()\n@9\203+
\313\314\337\n@\"!\210\202O
\324)\n@G()(W\203O
\313\314\340\n@)H\"!\210)T\211)\2025
\313\317!\210\nA9\203d
\313\314\341\nA\"!\210\202\210
\324)\nAG()(W\203\210
\313\314\340\nA)H\"!\210)T\211)\202n
*\202\220
\313\324!\210\313\342!\210\313\343!!\210\313\344!,\207" [coding-system aliases flags eol-type type alias coding-system-type coding-system-eol-type coding-system-get :flags coding-system-aliases princ format "%s (alias of %s)\n" nil "," ":%s:%c:%d:" coding-system-mnemonic 3 iso2022 0 4 -1 t -2 charsetp "(" ")" 12 1 ccl " %s" " %x" "%s" ":" coding-system-doc-string "\n" --dolist-tail-- charset idx len i] 7 (#$ . 20380)])
#@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) "r\306\307!q\210p\310 \210	\311\211\312\211\312\313 \210\314\315!\210+\211\316!\317!\210+\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks 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 inhibit-read-only #2=#:buf standard-output arg] 4 (#$ . 21780) "P"])
(defalias 'list-coding-systems-1 #[(arg) "\204\303\304!\210\202\303\305!\210\306\307\310!!\311\211\2056\n@\204*\312	\313\"\210\202.\314	!\210\nA\211\204\311*\207" [arg coding-system --dolist-tail-- 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 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 nil print-coding-system-briefly tightly print-coding-system] 4])
#@42 Display a list of all coding categories.
(defalias 'list-coding-categories #[nil "r\306\307!q\210p\310 \210	\311\211\312\211\312\313 \210\314\315!\210+\211\316\317!\210\211\205I\316\320\321@@J#!\210A\211\2042\311)\322!\210+\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks 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 inhibit-read-only #2=#:buf standard-output coding-category-list l] 6 (#$ . 23962)])
#@79 Print information about a font in FONT-INFO.
The IGNORED argument is ignored.
(defalias 'describe-font-internal #[(font-info &optional ignored) "\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 (#$ . 24696)])
#@98 Display information about a font whose name is FONTNAME.
The font must be already used by Emacs.
(defalias 'describe-font #[(fontname) "\203\n\306\307!\204\310\311!\210\312\n\203\nG\313U\203 \314\315\316\"\301\n!\211\204>\317\n\320\"\2038\321\322\323\n!\"\202p\321\324!\202pr\325\326!q\210p\327 \210\f\312\211\330\211\330 !\331 \210\332\333!\210+\211\"#\334	!\335\"!\210+)\207" [window-system font-info fontname default-directory #1=#:old-dir buffer-read-only fboundp fontset-list error "No fonts being used" nil 0 face-attribute default :font fontp font-object message "No information about \"%s\"" font-xlfd-name "No matching font found" 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 buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 5 (#$ . 25194) "sFont name (default current choice for ASCII chars): "])
(defalias 'print-fontset-element #[(val) "\306 \210g\307\310!\205
\311\225f\312\313\314\315#\203\311\224\311\225|\210	\316Y\204-\203A\316Y\203A\203;\317\320	#c\210\202A\317\321	\"c\210\n\314\211\205s
\f@\211\204V\322c\210\202k
@\211;\203f\323
\261\210\202B
\314\211\211\211\211\211./0123\324\325!\203\253\325
!\203\253\326
\327\"3\326
\330\"2\326
\331\"1\326
\332\"0\326
\333\"/\326
\334\".\202\311
\311H3
\335H2
\336H1
\337H0
\340H/
\341H.3\204\324\3423\202\35639\203\340\3433!3\344\3453\"\204\356\3463P32\204\371\3422\202
29\203
\3432!2\344\3452\"\204
2\211GSH\347U\204
2\350P2\317\35131\206(
\3500\206.
\350/\2064
\350.\206:
\3502&c\210.)\352\353!\203k
\353J\203k
A\3144\211\203j
\f@4\3544\355\261\210\fA\211\204X
*\fA\211\204I\314,\207" [to from val elt --dolist-tail-- requested beginning-of-line 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-match "-" "*-" 42 "*" "\n    -%s-%s-%s-%s-%s-*-*-*-*-*-*-%s" boundp print-opened "\n	[" "]" adstyle width slant weight registry family opened] 9])
#@278 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.
(defalias 'print-fontset #[(fontset &optional print-opened) "\306=\203
\307\310!\202\311=\203\312\313\314\"\315 \210``}\210\316\317\261\210\320\321\322\323#\324\320\325\322\323#\326\261\210\327\320\330\322\323#\324\320\331\322\323#\332\320\333\322\323#\334\261\210\335!\336	\337\"\311\211\311\211-\340	\341\"\210\342	\311\"\203\203\343\344!`\345 |\210\346c\210\347\350 `\322\351$\210db\210`\211\n\203\263\352c\210\347\350 `\322\351$\210\340\n\341\"\210\342\n\311\"\203\263\343\344!-`\345 |\210\353c\210\347\350 `\322\351$\210\203\304-\203\304\354\f
-$\210db\210.~\207" [fontset info default-info start1 end1 start2 t query-fontset "fontset-default" nil 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 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 end2] 10 (#$ . 27494)])
#@90 Display information about FONTSET.
This shows which font is used for which character(s).
(defalias 'describe-fontset #[(fontset) "G\306U\203\307\310\311\"\202\312!\313\314D\315\316!\"\210	r\317\320 !q\210p\321 \210\n\322\211\323\211\323\324 \210\325\326!\210+\211rq\210\327\323\")\330!\210+\207" [fontset default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list 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 inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 5 (#$ . 29052) (byte-code "\203\n\304\303!\204\305\306!\207\303 \307\310	\"\244\311\312\313\314\311$*C\207" [window-system fontset-alias-alist completion-ignore-case fontset-list fboundp error "No fontsets being used" mapcar cdr t completing-read "Fontset (default used by the current frame): " nil] 5)])
#@215 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.
(defalias 'list-fontsets #[(arg) "\203\n\306\307!\204\310\311!\207\312\313	D\314\315!\"\210\nr\316\317 !q\210p\320 \210\321\211\322\211\322\323 \210\324\325!\210+\211 r q\210\326\307 \327\"\211!\205p	\203^\330!@\321\"\210\202f\331!@\332\261\210!A\211!\204P\321*\333!\210+\207" [window-system arg default-directory #1=#:old-dir buffer-read-only buffer-file-name 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 #[(x y) "\302!\302	!\231\207" [x y fontset-plain-name] 3] print-fontset "Fontset: " "\n" internal-temp-output-buffer-show buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output fontsets] 5 (#$ . 30126) "P"])
#@46 Display information about all input methods.
(defalias 'list-input-methods #[nil "\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\315\316#\205M\325\326\327\330\326!#\210\202:*\331!\210+\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks 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 "^  \\([^ ]+\\) (`.*' in mode line)$" help-xref-button 1 help-input-method match-string internal-temp-output-buffer-show inhibit-read-only #2=#:buf standard-output] 6 (#$ . 31208) nil])
(defalias 'list-input-methods-1 #[nil "\204\305\306!\207\305\307!\210\305\310!\210\311\312\"\313\313\211\205f@	\nA@\232\2045\nA@\305	!\210\314 \210\305\315\316\n@\317\n8\211:\203N\f@;\203N\f@\202O\f)\320\321\322\323\n8\206Z\324#$!\210A\211\204\313+\207" [input-method-alist language elt --dolist-tail-- title princ "\nNo input method is available, perhaps because you have not\ninstalled LEIM (Libraries of Emacs 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 replace-regexp-in-string "\n\\(.\\)" "\n    \\1" 4 ""] 11])
(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 "r\306\307!q\210p\310 \210	\311\211\312\211\312@\313 \210\314\315!\210+\211ABrBq\210\316\317\320\321\322\323\324\325\261\210C\203D\326\327!\203D\330c\210\331c\210\332\333\334\"\210\335\336 \337\261\210\340D\337\261\210\341\342\343\344\345!\"\342\346%\"\261\210\347E\337\261\210\332\350\351\"\210C\203\206\342\352CF#c\210\202\215\353\354\355!\261\210\337c\210C\203\256\356\357 \236A.\360\361.\331\362\363\364\365\"\331\261\210)\202\266\366\367\370 !\261\210\337c\210\332\371\372\"\210\373 \210\331c\210G\203\323\342\374G\"c\210\202\326\375c\210\332\376\377\"\210\201J\312!\210\331c\210\332\201K\201L\"\210\201M \210\331c\210C\2038
\326\327!\2038
\332\201N\201O\"\210\201Pc\210\201Qc\210\327 \311H\211I\2037
I@H\201RH\312\"\210\331c\210IA\211I\204
*\201S )\201TA!\210+\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks 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 "  default: %S\n" default-value enable-multibyte-characters "  current-buffer: %S\n\n" "Current language environment: " 2 "Display" "Window-system: %s, version %s" "Terminal: " getenv "TERM" font frame-parameters "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" inhibit-read-only #2=#:buf standard-output window-system system-configuration-options current-language-environment window-system-version default-input-method fontset --dolist-tail-- list-coding-systems-1 5 "Character sets" list-character-sets-2 6 "Fontsets" "Fontset-Name						  WDxHT Style\n" "------------						  ----- -----\n" print-fontset help-print-return-message internal-temp-output-buffer-show] 9 (#$ . 32983) nil])
#@170 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.
(defalias 'font-show-log #[(&optional limit) "\203\n\306!\202\307	\310=\203\311\312!\207\nr\313\314!q\210p\315 \210\316\211\310\211\310\317 \210\320\321!\210+\211\211 q\210\322	!\316!\211\"\205\221\"@!\323\324!@!\211#A@)#c\210\325!8!\326!!\204u!<\203\200\327$\330\331\215\210)\202\207\323\332!\"c\210\"A\211\"\204M\316*\333!\210+\207" [limit font-log default-directory #1=#:old-dir buffer-read-only buffer-file-name 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 #[(x) "T\211	U\203\303c\210\304\305\306\"\210\307\310\n\"c\207" [i limit x "  ...\n" throw tag nil format "  %s\n"] 4] elt) "  %s\n" internal-temp-output-buffer-show buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output elt --dolist-tail-- x i] 5 (#$ . 35885) "P"])
(provide 'mule-diag)