| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/descr-text.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:14 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/descr-text.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)
#@55 Insert text to describe WIDGET in the current buffer.
(defalias 'describe-text-widget #[(widget) "\301\3029\203 \202
@!\303\304\305\306\307DDE\310\311%\210\312c\210\301\313\314\315\316\317%\207" [widget insert-text-button symbol-name action lambda (&rest ignore) widget-browse quote help-echo "mouse-2, RET: browse this widget" " " "(widget)Top" type help-info help-args ("(widget)Top")] 8 (#$ . 574)])
#@59 Insert a short description of SEXP in the current buffer.
(defalias 'describe-text-sexp #[(sexp) "\305\306\307\217\310\311\312 \313 \n #,\203 \314GSO\315\311\312 \313 \n #,\204= G\316 iZX\203= c\202N \317\320\321\322\323\324\325\326\327DDEE\330\331%)\207" [pp start string regexp inhibit-changing-match-data signal (pp-to-string sexp) ((error (prin1-to-string signal))) "\n\\'" nil t string-match 0 "\n" window-width insert-text-button "[Show]" action lambda (&rest ignore) with-output-to-temp-buffer "*Pp Eval Output*" princ quote help-echo "mouse-2, RET: pretty print value in another buffer"] 10 (#$ . 989)])
#@267 Insert a description of PROPERTIES in the current buffer.
PROPERTIES should be a list of overlay or text properties.
The `category', `face' and `font-lock-face' properties are made
into help buttons that call `describe-text-category' or
`describe-face' when pushed.
(defalias 'describe-property-list #[(properties) "\306\307 \203 \211A@ \211A@DB\202 )\310\"\307\211\205\206 @\211@\nA@ \311\312\313
\"\314\315#c\210
\316=\203T \317\320\f!\321\322\323\324\325\fDDE\326\327\330\331&\210\202z
\332>\203i \317\312\333\f\"\334\335\336\fC%\210\202z \337\f!\203v \340\f!\210\202z \341\f!\210*\342c\210 A\211\204# \307*\207" [ret properties elt --dolist-tail-- value key sort nil #[(a b) "\302@\303\"\302 @\303\"\231\207" [a b prin1-to-string t] 4] propertize format " %-20s " face help-argument-name category insert-text-button symbol-name action lambda (&rest ignore) describe-text-category quote follow-link t help-echo "mouse-2, RET: describe this category" (face font-lock-face mouse-face) "%S" type help-face help-args widgetp describe-text-widget describe-text-sexp "\n"] 9 (#$ . 1624)])
#@36 Describe a text property category.
(defalias 'describe-text-category #[(category) "\306\307D\310\311!\"\210 \312\211\223\210\312\313 B\f r\314\315 !q\210p\316 \210
\312\211 \317\211 \317 \320 \210\321\322!\210+\211 !r!q\210\323\324\325\"\326\261\210\327\330!!\210eb)\331 !\210+\332\n!\210*\207" [category help-window-point-marker help-window temp-buffer-show-hook default-directory #1=#:old-dir help-setup-xref describe-text-category called-interactively-p interactive nil #[nil "\301 \211\207" [help-window selected-window] 2] get-buffer-create help-buffer kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook "Category " format "%S" ":\n\n" describe-property-list symbol-plist internal-temp-output-buffer-show help-window-setup buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 5 (#$ . 2735) "SCategory: "])
#@318 Describe widgets, buttons, overlays, and text properties at POS.
POS is taken to be in BUFFER or in current buffer if nil.
Interactively, describe them for the character after point.
If optional second argument OUTPUT-BUFFER is non-nil,
insert the output into that buffer, and don't initialize or clear it
otherwise.
(defalias 'describe-text-properties #[(pos &optional output-buffer buffer) "p \203\f q\210\202 p\ndY\203 \306\307!\210 \203# \310\n \"\202\265 \311\n!\2045 \312\n!\2045 \313\314!\202\265 \315\316! r\fq\210\317\216p\320\321\322\n\"\323\261\210 q\210\310\n \"\210q\210\324\325\n\326 F\327\330!\"\210
\326\211\223\210\326 $\331%B %& 'r\332\333 !q\210p\334 \210'&\326\211()\335\211*\335 + ,\336 \210\337\340!\210+\211 - .r.q\210\341 !\210eb)\342-!\210+\343$!\210-)\207" [src-buf buffer pos output-buffer #1=#:temp-buffer help-window-point-marker error "No character follows specified position" describe-text-properties-1 text-properties-at overlays-at message "This is plain text." generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) "Text content at position " format "%d" ":\n\n" help-setup-xref describe-text-properties nil called-interactively-p interactive #[nil "\301 \211\207" [help-window selected-window] 2] get-buffer-create help-buffer kill-all-local-variables t erase-buffer run-hooks temp-buffer-setup-hook buffer-swap-text internal-temp-output-buffer-show help-window-setup help-window temp-buffer-show-hook default-directory #2=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #3=#:buf standard-output] 6 (#$ . 3663) "d"])
(defalias 'describe-text-properties-1 #[(pos output-buffer) "\306!\307\211T\"\310\311\"\310\312\" \310\313\" \314\315!\205\" \315!\211 \n\2052 \n \n\316\n\317\") ,\n\205= \320\n! \206H \f\206H
-r.q\210\321-!\203{ \322 \210 \203a \323\202n \f\203i \324\202n
\205n \325c\210\326c\210\327-!\210\330c\210\n\203\226 \321\f!\204\226 \322 \210\331\332\333,\"\334\335\261\210\n\203\353 \322 \210\nG\336=\203\252 \337c\210\202\264 \340\332\341\nG\"\342\261\210\n\343 /\211 0\203\347 0@/\344\332\341\345/!\"\346\332\341\347/!\"\350\261\210\351\352/!!\2100A\2110\204\276 *\350c\210 \205\370 \322 \210\353c\210\351 !.\n\207" [pos properties overlays wid-field wid-button wid-doc text-properties-at overlays-in get-char-property field button widget-doc fboundp button-at button-get type button-label widgetp newline "This is an editable text area" "This is an active area" "This is documentation text" " of a " describe-text-widget ".\n\n" "Here is a `" format "%S" "' button labeled `" "'.\n\n" 1 "There is an overlay here:\n" "There are " "%d" " overlays here:\n" nil " From " overlay-start " to " overlay-end "\n" describe-property-list overlay-properties "There are text properties here:\n" button-type widget output-buffer overlay --dolist-tail--] 8])
(byte-code "\300\301\302\303\304\305\306\307\310\311& \210\300\312\313\314\304\305\306\315\310\316& \207" [custom-declare-variable describe-char-unidata-list '(name old-name general-category decomposition) "List of Unicode-based character property names shown by `describe-char'." :group mule :version "23.1" :type (choice (const :tag "All properties" t) (set (const :tag "Unicode name" name) (const :tag "Unicode old name" old-name) (const :tag "Unicode general category " general-category) (const :tag "Unicode canonical combining class" canonical-combining-class) (const :tag "Unicode bidi class" bidi-class) (const :tag "Unicode decomposition mapping" decomposition) (const :tag "Unicode decimal digit value" decimal-digit-value) (const :tag "Unicode digit value" digit-value) (const :tag "Unicode numeric value" numeric-value) (const :tag "Unicode mirrored" mirrored) (const :tag "Unicode ISO 10646 comment" iso-10646-comment) (const :tag "Unicode simple uppercase mapping" uppercase) (const :tag "Unicode simple lowercase mapping" lowercase) (const :tag "Unicode simple titlecase mapping" titlecase))) describe-char-unicodedata-file nil "Location of Unicode data file.\nThis is the UnicodeData.txt file from the Unicode Consortium, used for\ndiagnostics. If it is non-nil `describe-char' will print data\nlooked up from it. This facility is mostly of use to people doing\nmultilingual development.\n\nThis is a fairly large file, not typically present on GNU systems.\nAt the time of writing it is at the URL\n`http://www.unicode.org/Public/UNIDATA/UnicodeData.txt'." "22.1" (choice (const :tag "None" nil) file)] 10)
#@259 Return a list of Unicode data for Unicode CHAR.
Each element is a list of a property description and the property value.
The list is null if CHAR isn't found in `describe-char-unicodedata-file'.
This function is semi-obsolete. Use `get-char-code-property'.
(defalias 'describe-char-unicode-data #[(char) "\205\274\306!\204 \307\310\"\210r\311\312!q\210\313\314 !\203 \315!\210eb\210\316\317 \"\320\211\211 \321\322
P\320\323#\203= \323\202t \321\324\320\323#\203f \325\326\327!\330\"\211Y\203f \327y\210\331\332!\210 \325\326\327!\330\"\211V\204= Y\203t \nX\203t \323\f\205\273\333\334\335\336 \337 {\340\"A\"\211 @G\341U\204\232 @G\342U\204\232 \307\343\"\210\344@@ A\345\346A\"\203\262 \326\327A\"\347P\202\264 A)D\350@A@ B\351\352\353B!\"\206\311 B)D\354@A@ B\351\355\353B!\"\206\336 B)D\356@A@ B\351\357\353B!\"\206\363 B)D\360\361@8\205;\335\361@8!\211 C@ D\345\362D\"\203\326\327D\"D\202 \320DD\203(CAC\363\364C\365#CD\211\2057\365CQ*D\366\367@8D\370\371@8D\372\373@8D\374\375@8\376\232\205Y\377D\201E \201F @8D\201G \201H @8D\201I \201J @8\205\207\201K \325\201J @8\330\"!D\201L \201M @8\205\241\201K \325\201M @8\330\"!D\201N \341@8\205\267\201K \325\341@8\330\"!D\257)-\207" [describe-char-unicodedata-file char last first found hex file-exists-p error "`unicodedata-file' %s not found" get-buffer-create " *Unicode Data*" zerop buffer-size insert-file-contents format "%04X" nil re-search-forward "^" t "^\\([^;]+\\);[^;]+First>;" string-to-number match-string 1 16 looking-at "^\\([^;]+\\);[^;]+Last>;" mapcar #[(elt) "G\301V\205 \207" [elt 0] 2] split-string line-beginning-position line-end-position ";" 13 14 "Invalid contents in %s" "Name" string-match "\\`\\(<[^,]+\\)," ">" "Category" char-code-property-description general-category intern "Combining class" canonical-combining-class "Bidi category" bidi-class "Decomposition" 4 "\\`<\\(.+\\)>\\'" mapconcat #[(arg) "\301\302\303\"!\207" [arg string string-to-number 16] 4] " " "Decimal digit value" 5 "Digit value" 6 "Numeric value" 7 "Mirrored" 8 "Y" "yes" fields name val parts info "Old name" 9 "ISO 10646 comment" 10 "Uppercase" 11 string "Lowercase" 12 "Titlecase"] 19 (#$ . 8260)])
(defalias 'describe-char-display #[(pos char) "\306\307 !\2038 \310 \"\211\2056 \311\n@\312\"\313\n@!\nA \250\203, \314\315
\f $\2025 \314\316
\f @ A%+)\207\317\320\" \321 \206D \322 \323 #\211 \205Y \324\"+\207" [pos char char-font-info code name type display-graphic-p selected-frame internal-char-font font-get :type font-xlfd-name format "%s:%s (#x%02X)" "%s:%s (#x%04X%04X)" get-text-property charset terminal-coding-system us-ascii encode-coding-char encoded-string-description coding encoded] 7])
(defalias 'describe-char-padded-string #[(ch) "\301 \203 \302\303\"\203 \304\305!\306\307\310\311\"$\207\305!\207" [ch display-multi-font-p internal-char-font nil compose-string string 0 1 format " %c "] 7])
(put 'describe-char-padded-string 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'describe-char-categories #[(category-set) "\302!\211\303=?\205 \304\305 \306#C)\207" [category-set mnemonics category-set-mnemonics "" mapconcat #[(x) "\303!\304\305 \"\203 \306\307\310 \"\311 \310\225T\312O#\202 \313\314\n#*\207" [x c doc category-docstring string-match "\\`\\(.*?\\)\n" propertize match-string 1 help-echo nil format "%c:%s"] 6] ", "] 5])
(put 'describe-char-categories 'byte-optimizer 'byte-compile-inline-expand)
#@806 Describe position POS (interactively, point) and the char after POS.
POS is taken to be in BUFFER, or the current buffer if BUFFER is nil.
The information is displayed in buffer `*Help*'.
The position information includes POS; the total size of BUFFER; the
region limits, if narrowed; the column number; and the horizontal
scroll amount, if the buffer is horizontally scrolled.
The character information includes the character code; charset and
code points in it; syntax; category; how the character is encoded in
BUFFER and in BUFFER's file; character composition information (if
relevant); the font and font glyphs used to display the character;
the character's canonical name and other properties defined by the
Unicode Data Base; and widgets, buttons, overlays, and text properties
relevant to POS.
(defalias 'describe-char #[(pos &optional buffer) "\306!\204 ppq\210\ndY\203 \307\310!\210\nf\f?\205\" \311Y\211 \203+ \312\2025 \313\n\314\"\2065 \315 ! \f\316\n\317\211\320$ @\317 A\321 \206N B\206N C\211 D\205X D H E\f F\322\323\324\n!\" GF\204p \325 !\202\201 \311W\203| \325 !\202\201 \326\327 !! H\330\331! I\332\216\333\nI\"\210rIq\210\334 + J\317\211 K L\317 MF\203\302 \335 \f\"\211M\204\305 \315 !\f\335 \f\"M\202\305 M \336>\203\332 H\337\340\341!\342\320#PH\202\357 \343 \344\"\345>\203\357 H\337\340\346!\342\320#PH@\203\375 \347\350\215\204\375 \317@\351e Nd O\352 \211 P\353V\203 P\354\245\nS\\P\355\245\356]\245\202-P\357\245\nS\355_\\P\356]\245 Q\360 \361U\203:\362\202?\363\364\360 \" Ri SN\356U\203TOPTU\204h\363\365\nPQNOSR&\202\211\nOU\203|\363\366\nPSR%\202\211\363\367\nPQSR&.D\370\363\371H\372\337H\373\n!# \211\211&D\374\375\376\f!\377\201\204 \201\205 \201\206 \fCD\257\363\201\207 \201\210 \f!\"E\201\211 M\250\203\343\363M\201\212 W\203\332\201\213 \202\335\201\214 M\"\202\356\363\201\215 M@MA# T\201\216 \f!\357X\203D\375T\201\217 \201\220 \201\221 \201\222 \201\206 \fDD\201\223 \201\224 \201\225 \201\226 \201\227 \201\230 \201\231 \201\232 \327 !\201\233 BB\201\234 BBE\257F\201\235 BBBB\202FT)D\201\236 \201\237 \n! U\330\201\240 ! VrVq\210\201\241 \216\201\242 U!\210\334 ,D\201\243
?\205\250\201\244 !\211 W\203\244W W\201\245 W!\211 X\362=?\205\240\201\246 \201\247 X\201\250 #C*\202\247\201\251 )B\201\252
?\205Y\201\253 =\205\277\201\254 !\211 Z:\203\374\201\255 \201\256 \201\246 \201\257 Z\201\260 #\201\256 Q\201\261 \375[\201\262 \201\263 \201\264 \201\206 [CD\257\201\265 \257\202 \201\266 C)B\201\267 F\203\201\270 \201\271 \327 !!\317\"\202 \363\201\272 \"D\201\273 F\203Z\\ ]\201\274 ]\f#\211 ^\203N\201\270 ^]\"\363\201\275 ]\"D\202V\201\276 \376]!D*\202a\363\201\272 \"CB\201\277 E\203\271\201\300 E!\211EG\361 _ `_`W\203\244E_E_H\201\301 \n\201\302 E_H!\"BI\210_T\211_\202{*\363\201\303 \201\246 \201\304 E\201\305 #\"\202@\203\311@\211 aA@)\202\201\301 \n \" b\201\306 \201\307 !\203\360b\203\352\201\310 bP\202\201\311 \202b\203\377\363\201\312 b\"\202\201\313 )D\201\314 E\206@?\205uc\2033\212\nb\210\201\315 d\320 e\201\316 d!+\2033\201\317 \202uf\203J \203J \201\320 =\203J\201\321 \202uf\203a \203a \201\322 >\203a\201\323 \202u \201\324 W\205u \201\325 >?\205u\201\323 \211 g\205\227\201\326 \375\376g!\201\327 \201\330 \201\331 \201\206 gCD\257DC)
?\205\261\201\332 !\211 h\205\260\201\333 \362DhB)\"BBBBBBBBBBK\372\201\334 \322\201\335 K\"\"L q\210\201\336 \201\337 \nE\201\340 \201\341 !\"\210i\317\211\223\210\317 j\201\342 kB kl mr\201\343 \201\344 !q\210p\201\345 \210ml\317\211no\320\211p\320 q r\201\346 \210\201\347 \201\350 !\210+\211 s trtq\210\201\351 F!\210\363\201\352 L\" uK\317 v\211 w\203\266w@\211v\211 aA@)\203\255\363uv@\"c\210vA\317 x\211 w\203\247w@\211x\242\375=\203\214\201\305 c\210\201\353 x!\210\202\236\201\354 xG!\204\236\201\305 x\261\210wA\211w\204q*\201\355 c\210wA\211w\204M+G\203\332\212eb\210\201\356 \201\357 !\210`HG\\ O\201\360 \201\361 G\"\210*E\203\261\201\362 c\210\201\306 \201\307 !\203o\201\363 c\210EG\361 _ `_`W\203k\201\302 E_H@!\201\364 \337\201\305 \201b \201\365 #E_HA\206(\201\366 \201\355 \261\210\201\367 E_H@!\211 g\203a\337\201\305 \201b \201\370 #\201\371 \261\210\201\372 \376g!\201\373 Qc\210\201\355 c\210)_T\211_\202\376*\202\261\201\374 c\210EG\361 _ `_`W\203\260E_H@\337\201\305 \201b \201\375 #E_HA\206\241\201\376 \201\355 \261\210_T\211_\202~*@\203\207\201\377 c\210@@\203\306@@c\210\201 \357@8!\203\243\201 \357@8\361H!\203\243\357@8\211 y\211 y\211 y\361H)\361H) z\201@8 {\201@8 |\317 }\201z!\203]\201\376\201z\201\"!\201\364 \201z!\361H\201\261\210{|X\203\237y{ _\211 y_\357\\H*\211}\203\237\363\201 }\"c\210{T\211{\2020\201\nc\210{|X\203\237y{ _\211 y_\357\\H*\211}\203\237\363\201 }\211 }\357H)}\211 }\357H)#c\210{T\211{\202d-\202\207\201\fc\210\320 ~\201\360 \201
\357@8\"\210)\201c\210\201\306 \201\307 !\203?\201c\210A\317 v\211 w\203;w@\211v@\201U\2042\201v@ \201 \203\201\317\"\203\201\340!\361\356\363\201\"$\202\340!)\201\364 \337\201\305 \201b \201#vA\206/\201\366 \261\210wA\211w\204\330*\202~\201c\210A\317 v\211 w\203}w@v\201v@\201\337\201\305 \201b \201#vA\206q\201\376 \261\210wA\211w\204O*\201\201 \261\210
\204 \200\204\226\201 \202\231\201 c\210\375\201 \201 \201!\201\"\320%\210\201\355 c\210\200\320=\203\302\322\201#\201\"\237\202\304\200\317 v\211 w\203 w@v\343 v\"\317 \202\211 \203\203 \201$v\203\"\211\202\203\374\363\201%v\203\202$\202 \363\201&v\203#c\210*wA\211w\204\315*J\203 Jc\210\320\211n)\201's!\210+\201(j!\210.\207" [buffer src-buf pos char enable-multibyte-characters eight-bit-p buffer-live-p error "No character follows specified position" 128 eight-bit get-text-property charset char-charset find-composition nil t window-display-table mapcar #[(o) "\301!\207" [o overlay-properties] 2] overlays-at single-key-description string-to-multibyte char-to-string generate-new-buffer " *text-props*" ((kill-buffer tmp-buf)) describe-text-properties buffer-string encode-char (8234 8235 8237 8238) propertize string 8236 invisible get-char-code-property bidi-class (R AL) 8206 tag (byte-code "@A@\3068\307 \310\n!\203\310\n\311H!\203
\fZ\n\211 G\306Z)\311\307\211\211 W\203i \n \211 \306\\H*\211\203i \211 \312H) W\203i T\211 \2028 \203v U\203{ \313\314\307\"\210\211 \311H)\315\f\211 \312H)\312#\f\\ \211 W\203\315 \n \211 \306\\H*\211\203\315 \211 \311H)U\203\315 T\211 \202\234 \fTU\203 SU\203\n \211 \306\\H*\211\203 \211 \306H)U\203\313\314\307\"\210 SD\244\210.\202E\nG\311 ! !W\203?\n H\211\250\2036 \316
\"B\"B\" T\211 \202*\"\237\"\f
W\203|
T W\203l\317\320\321\f
{\322#\323\320\321
T {\322#\324\260\240\210\202\230\325\320\321\f
{\322#\324Q\240\210\202\230
T W\203\224\326\320\321
T {\322#\324Q\240\210\202\230\307\240\210A\327\330\f {\"\240,\207" [composition ch components to from pos 2 nil vectorp 0 1 throw tag + describe-char-display " with the surrounding characters \"" mapconcat describe-char-padded-string #1="" "\" and \"" "\"" " with the preceding character(s) \"" " with the following character(s) \"" format "composed to form \"%s\" (see below)" gstring glyph-from glyph j i nglyphs idx char --dotimes-limit-- component-chars] 9) "position" buffer-size 50000 200 100 1 2 window-hscroll 0 #1# format ", Hscroll: %d" "%d of %d (%d%%), restriction: <%d-%d>, column: %d%s" "%d of %d (EOB), column: %d%s" "%d of %d (%d%%), column: %d%s" "character" "%s (displayed as %s) (codepoint %d, #o%o, #x%x)" apply text-properties-at "preferred charset" insert-text-button symbol-name 'type composition component-chars buffer-display-table standard-display-table display-table disp-vector multibyte-p overlays char-description tmp-buf text-props-desc item-list max-width code beg end total percent hscroll col str syntax #2=#:temp-buffer category-set mnemonics input-method-function key-list current-input-method buffer-file-coding-system coding encoded i --dotimes-limit-- x display show-trailing-whitespace regexp inhibit-changing-match-data nobreak-char-display face unicodedata help-window-point-marker help-window temp-buffer-show-hook default-directory #3=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #4=#:buf standard-output formatter elt --dolist-tail-- clm gstring font from to glyph first ch describe-char-unidata-list char-code-property-alist description val 'help-character-set 'help-args quote "(%s)" charset-description "code point in charset" 256 "0x%02X" "0x%04X" "0x%04X%04X" charset-dimension 'action lambda (&rest ignore) list-charset-chars with-selected-window (get-buffer-window "*Character List*" 0) (goto-char (point-min)) (forward-line 2) let ((case-fold-search nil)) if search-forward (nil t) ((goto-char (match-beginning 0))) ('follow-link t 'help-echo "mouse-2, RET: show this character in its character set") "syntax" syntax-after " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#2# buffer-name kill-buffer] 2)) internal-describe-syntax-value "category" char-category-set category-set-mnemonics mapconcat #[(x) "\303!\304\305 \"\203 \306\307\310 \"\311 \310\225T\312O#\202 \313\314\n#*\207" [x c doc category-docstring string-match "\\`\\(.*?\\)\n" propertize match-string 1 help-echo nil format "%c:%s"] 6] ", " ("-- none --") "to input" quail-input-method quail-find-key "type" "\"" identity "\" or \"" "with" 'type 'help-input-method 'help-args "input method" "type \"C-x 8 RET HEX-CODEPOINT\" or \"C-x 8 RET NAME\"" "buffer code" encoded-string-description string-as-unibyte "#x%02X" "file code" encode-coding-char "(encoded by coding system %S)" "not encodable by coding system" "display" copy-sequence describe-char-display glyph-char "by display table entry [%s] (see below)" #[(x) "\301\302\303@!\"\207" [x format "?%c" glyph-char] 4] " " display-graphic-p selected-frame "by this font (glyph code)\n " "no font available" "terminal code %s" "not encodable for terminal" append "[ ]+$" looking-at trailing-whitespace 160 nobreak-space (173 8208 8209) escape-glyph 32 (9 10) "hardcoded face" 'type 'help-face 'help-args describe-char-unicode-data "Unicode data" max #[(x) "\211A@)\203
@G\207\301\207" [x 0] 2] help-setup-xref describe-char called-interactively-p interactive #[nil "\301 \211\207" [help-window selected-window] 2] get-buffer-create help-buffer kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook set-buffer-multibyte "%%%ds:" eval zerop "\n" re-search-forward "(displayed as " mapc #[(props) "\304`\"\n\205 \305 \n@\nA@#\210\n\211AA)\211\204 \306)\207" [end o props x make-overlay overlay-put nil] 5] "\nThe display table entry is displayed by " "these fonts (glyph codes):\n" 58 (space :align-to 5) "-- no font --" glyph-face (space :align-to 5) "face: " "`" "'" "these terminal codes:\n" (space :align-to 5) "-- not encodable --" "\nComposed" vectorp 3 4 fontp " using this font:\n " font-get :type query-font "\nby these glyphs:\n" " %S\n" " by these characters:\n" " %c (#x%d)\n" " by the rule:\n (" #[(x) "\203 \303\202\f \304c\210 :\203 \305\306 \"c\207 \307U\203\" \310 !c\207\311c\210 \312 \203A \313\303\n\"\203A \314\315\n!\316\317\305\320\n\"$\202D \315\n!)c\207" [first x ch nil " " format "%S" 9 single-key-description 63 display-multi-font-p internal-char-font compose-string string 0 1 #5=" %c "] 7] ")\nThe component character(s) are displayed by " "these fonts (glyph codes):" 9 "\n " display-multi-font-p internal-char-font compose-string #5# (space :align-to 5) "these terminal codes:" "\n " ":" (space :align-to 4) "\nSee the variable `reference-point-alist' for " "the meaning of the rule.\n" "\nCharacter code properties are not shown: " "\nCharacter code properties: " "customize what to show" action #[(&rest _ignore) "\300\301!\207" [customize-variable describe-char-unidata-list] 2] follow-link car char-code-property-description " %s: %s (%s)\n" " %s: %s\n" internal-temp-output-buffer-show help-window-setup] 21 (#$ . 11767) "d"])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\307!\207" [defalias describe-char-after describe-char nil make-obsolete "22.1" provide descr-text] 4)