;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 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\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 (#$ . 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\227D\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\344J@\211I=\204\333\327I\330\"=\203\333IGBGJA\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\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\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\343F\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\201Kc\202\263\201L\201M\261\202\263\201Nc\210I\205\263\201O\201PI@!\261\210\201Q\201PI@!!\210\201R\360\201SI@#\210db\210IA\211I\204\201\316*\201TB!\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---" put-text-property line-beginning-position highlight "\n ------" "\n ------" 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\201Mc\210\201Nc\210\327 \311H\211I\203(I@H\201OH\312\"\210\331c\210IA\211I\204*\201P )\201QA!\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)