Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
ccl.elc	40.24 KB	-rw-r--r--
characters.elc	32.4 KB	-rw-r--r--
charprop.el	5.33 KB	-rw-r--r--
charscript.elc	6.36 KB	-rw-r--r--
cp51932.elc	7.77 KB	-rw-r--r--
eucjp-ms.elc	31 KB	-rw-r--r--
fontset.elc	33.93 KB	-rw-r--r--
isearch-x.elc	2.8 KB	-rw-r--r--
iso-ascii.elc	5.67 KB	-rw-r--r--
iso-cvt.elc	18.49 KB	-rw-r--r--
iso-transl.elc	4.96 KB	-rw-r--r--
ja-dic-cnv.elc	11.51 KB	-rw-r--r--
ja-dic-utl.elc	5.11 KB	-rw-r--r--
kinsoku.elc	3.11 KB	-rw-r--r--
kkc.elc	14.3 KB	-rw-r--r--
latexenc.elc	4.14 KB	-rw-r--r--
latin1-disp.elc	43.78 KB	-rw-r--r--
mule-cmds.elc	90.54 KB	-rw-r--r--
mule-conf.elc	37.85 KB	-rw-r--r--
mule-diag.elc	36.73 KB	-rw-r--r--
mule-util.elc	13.94 KB	-rw-r--r--
mule.elc	78.19 KB	-rw-r--r--
ogonek.elc	16.26 KB	-rw-r--r--
quail.elc	80.29 KB	-rw-r--r--
rfc1843.elc	3.84 KB	-rw-r--r--
robin.elc	8.36 KB	-rw-r--r--
titdic-cnv.elc	34.82 KB	-rw-r--r--
ucs-normalize.elc	209.65 KB	-rw-r--r--
uni-bidi.el	10.79 KB	-rw-r--r--
uni-brackets.el	5.02 KB	-rw-r--r--
uni-category.el	16.28 KB	-rw-r--r--
uni-combining.el	8.56 KB	-rw-r--r--
uni-comment.el	2.67 KB	-rw-r--r--
uni-decimal.el	3.37 KB	-rw-r--r--
uni-decomposition.el	29.4 KB	-rw-r--r--
uni-digit.el	3.6 KB	-rw-r--r--
uni-lowercase.el	8.12 KB	-rw-r--r--
uni-mirrored.el	11.22 KB	-rw-r--r--
uni-name.el	220.76 KB	-rw-r--r--
uni-numeric.el	5.88 KB	-rw-r--r--
uni-old-name.el	19.63 KB	-rw-r--r--
uni-special-lowercase.el	2 KB	-rw-r--r--
uni-special-titlecase.el	6.48 KB	-rw-r--r--
uni-special-uppercase.el	6.68 KB	-rw-r--r--
uni-titlecase.el	8.22 KB	-rw-r--r--
uni-uppercase.el	8.22 KB	-rw-r--r--
utf-7.elc	2.14 KB	-rw-r--r--
utf7.elc	5.69 KB	-rw-r--r--

Code Editor : mule-diag.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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 (#$ . 429)])
(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 (#$ . 1102) "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�*\316\267\202Z�\317\202^�\320\202^�\321\322\"\323
\n\"\323\f\n\"\324
\325C\f#\307,\211+\205\330�+@\211,\325=\203\224�\326c\210\327\330\331\332\333\334%\210\335c\210\202\313�\327\336,@!\337\340\333,@C%\210db\210\341c\210\342j\210\343\344,A@\345,8#\346,8\347W\203\304�\350\202\310�\346,8\261\210\351c\210+A\211+\204x�\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 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (name 82 iso-spec 86)) #[(x y) "@	@\231\207" [x y] 2] #[(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 (#$ . 3065)])
(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 (#$ . 5279))
(make-obsolete-variable 'non-iso-charset-alist "no longer relevant." "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 (#$ . 5449)])
(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\344�2\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 (#$ . 6788) (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+\211ABrBq\210\325\326!\261\210\327\330\"\211C=\204]�\331\326C!\332\261\210)\333\334!\333\261\210\335c\210\336!\337DEDEW\203\227�D\337U\204\203�\340c\210\341\342\343DT\"\"c\210DT\211D\202s�*\344c\210\345!\211F\337V\203\260�\346c\210\347\350F\"c\210)\320GH\320I\211J\203\344�J@\211I=\204\333�\327I\330\"=\203\333�IGBGJA\211J\204\277�*G\203\365�\351\352\326G\353#\344\261\210)\354\355\356\357\320\360E\361\362\363\364\365\352\366\367BBEE\370\371\372E\373BBBBBBB\320K\211J\205cJ@K\327K@\"\211L\203XKA@\203<KA@c\210\374K8\203U\344\374MN\375\374K8L!p\"\210*\344c\210)JA\211J\204\320+\376A!\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: " format-message "`%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 or a subset of some other charset,\nor provided just for backward compatibility." 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 print-level print-length] 13 (#$ . 8217) (list (read-charset "Charset: "))])
(defalias 'print-designation #[(designations) "\304\305\306	\nW\205\220�	H\307\310\311	\204�\312\202R�\313=\203&�\314\202R�9\2035�\310\315\316!#\202R�<\203Q�\317@!\203M�\310\320@\316@!#\202R�\321\202R�\322#!\210<\203\211�A\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\267\202\263�\327\332!\210\202\267�\327\333!\210\202\267�\202\267�\327\334!\210\202\267�\327\335!\210\327\336!\210\337\340\341\"!\210\340\342\"\203\267�\327\343!\210\344\345\340\342\"\"\210\202\267�\327\346!\210\202\267�\327\347!\210\202\267�\327\350!\210\202\267�\327\351!\210\202\267�\202\267�\327\352!\210\327\353!\210\354!F\355F!\203\327�\327\356!\210\327F!\210\327\357!\210\202F\203\343�F\360=\203\352�\327\361!\210\202F\362\267\202\377�\327\363!\210\202\327\364!\210\202\327\365!\210+\340\366\"\211G\203#\327\367!\210\327\370!\210\327\371!\210\327G!\210\327\357!\210)\340\372\"\211H\203C\327\373!\210\327\374!\210\327\371!\210\327H!\210\327\357!\210)rCq\210\375!I\376!\377=?\205\263I\205\263I\201J�\267\202w\201K�c\202\263\201L�\201M�\261\202\263\201N�c\210I\205\263\201O�\201P�I@!\261\210\201Q�\201P�I@!!\210\201R�\360\201S�I@#\210db\210IA\211I\204\201\316*\201T�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: " #s(hash-table size 10 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (undecided 87 utf-8 94 utf-16 101 shift-jis 104 iso-2022 111 charset 148 ccl 155 raw-text 162 emacs-mule 169 big5 176)) " (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 241 2 248)) "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 inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output extra-spec type eol-type postread prewrite charsets #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (iso-2022 357 emacs-mule 364)) "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 (#$ . 11426) "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 (#$ . 14722) 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\242�\323!\206\200�\324\f\322=\203\231�\325\321
\"\203\225�\326
\327\211\224#\330
P\306\310\331\332
!\"!)\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 substring 0 "  " "%s\n" substitute-command-keys] 6 (#$ . 16409)])
#@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\312:\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 \311A\211B\203B@A\320\350\351@A#!\210\352A!CAC@=\203\363�CA\203\374�\320\353CAB!\210\202\374�\320\354\355C@E!\210\356 \210@T@)BA\211B\204\304�+\320\357!\210\320\360!\210\356 \210\320\361!\210\320\362!\210\363\211D\364\365EF\"\"\210D\366G\"\210D\367H\"\210)\370 )\371;!\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" append "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 auto-coding-alist file-coding-system-alist process-coding-system-alist network-coding-system-alist] 6 (#$ . 17452) nil])
#@46 Print detailed information on CODING-SYSTEM.
(defalias 'print-coding-system #[(coding-system) "\306!\307!\310\311\"\312!	@=\204#�\313\314\315	@#!\202\227\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\267\202\206\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\212\316\211'(\n@9\203%\313\314\336\n@\"!\210\202I\324(\n@G'('W\203I\313\314\337\n@(H\"!\210(T\211(\202/\313\317!\210\nA9\203^\313\314\340\nA\"!\210\202\202\324(\nAG'('W\203\202\313\314\337\nA(H\"!\210(T\211(\202h*\202\212\313\324!\210\313\341!\210\313\342!!\210\313\343!,\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 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (iso2022 97 ccl 270)) 0 4 -1 t -2 charsetp "(" ")" 12 1 " %s" " %x" "%s" ":" coding-system-doc-string "\n" --dolist-tail-- charset idx len i] 7 (#$ . 20296)])
#@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 (#$ . 21781) "P"])
(defalias 'list-coding-systems-1 #[(arg) "\204�\303\304!\210\202�\303\305\306!!\210\307\310\311!!\312\211\2058�\n@\204,�\313	\314\"\210\2020�\315	!\210\nA\211\204�\312*\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" 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 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 (#$ . 23992)])
#@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\306H\203�\301\307\306H\"\210\301\310\311\312\313H\"\"\210\301\314\311\312\315H\"\"\210\301\316\311\312\317H\"\"\210\301\320\311\312\321H\"\"\210\301\322\311\312\323H\"\"\210\301\324\311\312\325H\"\"\210\301\326\311\312\327H\"\"\210\301\330\311\312\331H\"\"\210\301\332\311\312\333H\"\"\210\301\334\311\312\335H\"\"\207" [font-info 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] 6 (#$ . 24726)])
#@58 Display information about a font whose name is FONTNAME.
(defalias 'describe-font #[(fontname) "\203\n�\306\307!\204�\310\311!\210\312	D\313	\203�	G\314U\203$�\315\316\317\"\302	!\211\204B�\320	\321\"\203<�\322\323\324	!\"\202|�\322\325!\202|�\326\327\330!\"\210\fr\331\332!q\210p\333 \210
\313\211\"#\334\211$\334%&\335 \210\336\337!\210+\211'(\340\n!\341'!\210+*\207" [window-system fontname font-info xref-item default-directory #1=#:old-dir fboundp fontset-list error "No fonts being used" describe-font nil 0 face-attribute default :font 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 buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 5 (#$ . 25593) (list (completing-read "Font name (default current choice for ASCII chars): " (and window-system (fboundp 'fontset-list) (nconc (butlast (fontset-list)) (x-list-fonts "*")))))])
(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\356�39\203\340�\3433!3\344\3453\"\204\356�\3463P32\204\371�\3422\20229\203\3432!2\344\3452\"\2042\211GSH\347U\2042\350P2\317\35131\206(\3500\206.\350/\2064\350.\206:\3502&c\210.)\352\353!\203k\353J\203kA\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 (#$ . 28071)])
#@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 (#$ . 29629) (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 (#$ . 30703) "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\325!\315\316#\205O�\326\327\330\331\327!#\210\202:�*\332!\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 substitute-command-keys "^  \$[^ ]+\$ (`.*' 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 (#$ . 31785) nil])
(defalias 'list-input-methods-1 #[nil "\204�\305\306!\207\305\307\310!!\210\305\311!\210\312\313\"\314\314\211\205j�@	\nA@\232\2047�\nA@\305	!\210\315 \210\305\316\317\n@\320\n8\211:\203P�\f@;\203P�\f@\202Q�\f)\321\322\323\307\324\n8\206]�\325!#$!\210A\211\204!�\314+\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)." substitute-command-keys "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-message "  %s (`%s' in mode line)\n    %s\n" 3 replace-regexp-in-string "\n\$.\$" "\n    \\1" 4 ""] 12])
(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\343E\"\261\210\344F\337\261\210\332\345\346\"\210C\203~�\342\347C\"c\210\202\205�\350\351\352!\261\210\337c\210C\203\245�\353\311\354\",\355\356,\331\357\360\361\362\"\331\261\210)\202\255�\363\364\365 !\261\210\337c\210\332\366\367\"\210\370 \210\331c\210G\203\312�\342\371G\"c\210\202\315�\372c\210\332\373\374\"\210\375\312!\210\331c\210\332\376\377\"\210\201J� \210\331c\210C\203)\326\327!\203)\332\201K�\201L�\"\210\201M�c\210\201N�c\210\327 \311H\211I\203(I@H\201O�H\312\"\210\331c\210IA\211I\204*\201P� )\201Q�A!\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 "  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" inhibit-read-only #2=#:buf standard-output window-system system-configuration-options enable-multibyte-characters current-language-environment default-input-method fontset --dolist-tail-- list-character-sets-2 6 "Fontsets" "Fontset-Name						  WDxHT Style\n" "------------						  ----- -----\n" print-fontset help-print-return-message internal-temp-output-buffer-show] 9 (#$ . 33631) 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\224�#@\"\323\324\"@\"A@#c\210\325\"8\"\326\"!\204q�\"<\203\203�\327$\3302~�\331\332\"\"0\210)\202\212�\323\333\"\"c\210#A\211#\204M�\316*\334 !\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] "  %s\n" internal-temp-output-buffer-show buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output elt --dolist-tail-- i] 5 (#$ . 36437) "P"])
(provide 'mule-diag)

${this.title}

Code Editor : mule-diag.elc