HOME

Mini Shell 1.0
Current File : //usr/share/emacs/26.1/lisp/descr-text.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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)
#@68 Insert text to describe WIDGET in the current buffer.

(fn WIDGET)
(defalias 'describe-text-widget #[257 "\300\3019\203\202
@!\302\303\304\305\306\307!\310\"\311\312%\313\314%\210\315c\210\300\316\317\320\321\322%\207" [insert-text-button symbol-name action make-byte-code 128 "\301\300!\207" vconcat vector [widget-browse] 3 "\n\n(fn &rest IGNORE)" help-echo "mouse-2, RET: browse this widget" " " "(widget)Top" type help-info help-args ("(widget)Top")] 10 (#$ . 429)])
#@70 Insert a short description of SEXP in the current buffer.

(fn SEXP)
(defalias 'describe-text-sexp #[257 "\3011\302!0\202\303!\262C\304\242\305\306\307#)\266\203\203-\211\242\310\242GSO\240\210\311\242\305\306\307#)\266\203\204O\211\242G\312 iZX\203O\211\242c\202b\313\314\315\316\317\320\321\322!\323\"\324\325%\326\327%\207" [inhibit-changing-match-data (error) pp-to-string prin1-to-string "\n\\'" nil t string-match 0 "\n" window-width insert-text-button "[Show]" action make-byte-code 128 "	r\306\307!q\210p\310 \210\311\211\312\211\312\313 \210\314\315!\210+\211\316\300\242!\317!\210)\207" vconcat vector [default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks get-buffer-create "*Pp Eval Output*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ internal-temp-output-buffer-show inhibit-read-only standard-output] 7 "\n\n(fn &rest IGNORE)" help-echo "mouse-2, RET: pretty print value in another buffer"] 11 (#$ . 914)])
#@284 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.

(fn PROPERTIES)
(defalias 'describe-property-list #[257 "\300\301\203\211A\262\242\211A\262\242DB\262\202\211\262\302\"\211\205\210\211@\211@A@\303\304\305\"\306\307#c\210\310=\203V\311\312!\313\314\315\316\317\320!\321\"\322\323%\324\325\326\327&\210\202|\330>\203k\311\304\331\"\332\333\334C%\210\202|\335!\203x\336!\210\202|\337!\210\266\340c\210A\266\202\202\207" [sort nil #[514 "\300@\301\"\300@\301\"\231\207" [prin1-to-string t] 6 "\n\n(fn A B)"] propertize format "  %-20s " face help-argument-name category insert-text-button symbol-name action make-byte-code 128 "\301\300!\207" vconcat vector [describe-text-category] 3 "\n\n(fn &rest IGNORE)" 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"] 14 (#$ . 1960)])
#@51 Describe a text property category.

(fn CATEGORY)
(defalias 'describe-text-category #[257 "\305\306D\307\310!\"\210\311\211\223\210\312	B\313\nB\314 \315 \316!\211\311\211r\fq\210\317\320\321\"\322\261\210\323\324!!\210eb)\262rq\210\325\311\"\262)\326\327!\203T\327\"\202U\211)\266\204*\207" [help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output help-setup-xref describe-text-category called-interactively-p interactive nil help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup "Category " format "%S" ":\n\n" describe-property-list symbol-plist temp-buffer-window-show functionp help-window-setup] 9 (#$ . 3124) "SCategory: "])
#@359 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.

(fn POS &optional OUTPUT-BUFFER BUFFER)
(defalias 'describe-text-properties #[769 "p\203q\210\202p\262dY\203\305\306!\210\203#\307\"\202\263\310!\2045\311!\2045\312\313!\202\263\314\315!r\211q\210\316\317\320\321\322!\323\"\324$\216p\262\325\326\327\"\330\261\210q\210\307\"\210q\210\331\332\333F\334\335!\"\210\333\211\223\210\336	B\337\nB\340 \341 \342!\211\333\211r\fq\210\343!\210eb)\262rq\210\344\333\"\262)\345\346!\203\254\346\"\202\255\211)\266\204,\262\207" [help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output error "No character follows specified position" describe-text-properties-1 text-properties-at overlays-at message "This is plain text." generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "Text content at position " format "%d" ":\n\n" help-setup-xref describe-text-properties nil called-interactively-p interactive help-mode-setup help-mode-finish selected-frame help-buffer temp-buffer-window-setup buffer-swap-text temp-buffer-window-show functionp help-window-setup] 12 (#$ . 3880) "d"])
#@26 

(fn POS OUTPUT-BUFFER)
(defalias 'describe-text-properties-1 #[514 "\301!\302\211T\"\303\304\"\303\300\"\303\305\"\306\307!\205\307!\211\205*\211\310\311\")\2051\312!\206:\206:r	q\210\313!\203j\314 \210\203Q\315\202^\203Y\316\202^\205^\317c\210\320c\210\321!\210\322c\210\203\313!\204\314 \210\323\324#c\210\203\314\314 \210G\325=\203\225\326c\210\202\240\327\330\331\nG\"\332\261\210\211\203\310\211@\333\330\331\334!\"\335\330\331\336!\"\337\261\210\340\341!!\210A\266\202\202\242\210\337c\210\205\333\314 \210\342c\210\340	!)\207" [button text-properties-at overlays-in get-char-property field 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" format-message "Here is a `%S' button labeled `%s'.\n\n" 1 "There is an overlay here:\n" "There are " format "%d" " overlays here:\n" " From " overlay-start " to " overlay-end "\n" describe-property-list overlay-properties "There are text properties here:\n"] 20 (#$ . 5405)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313&	\210\300\314\302\303\315DD\316\306\307\310\317\312\320&	\207" [custom-declare-variable describe-char-unidata-list funcall function #[0 "\300\207" [(name old-name general-category decomposition)] 1] "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 #[0 "\300\207" [nil] 1] "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)
#@270 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'.

(fn CHAR)
(defalias 'describe-char-unicode-data #[257 "\205\233\301!\204\302\303\"\210r\304\305!q\210\306 \307U\203 \310!\210eb\210\311\312\"\313\211\211\314\315P\313\316#\203:\316\262\202t\314\317\313\316#\203e\320\321\322!\323\"\211\262Y\203e\322y\210\324\325!\210\320\321\322!\323\"\211\262V\204:Y\203tX\203t\316\262\205\230\326\327\330\331 \332 {\333\"A\"\211G\334U\204\227\211G\335U\204\227\302\336\"\210\337@\340\341\"\203\252\321\322\"\342P\202\253\211\262D\343A@\344\345\346!\"\206\274\211\262D\347\3508\344\351\346!\"\206\315\211\262D\352\3538\344\354\346!\"\206\336\211\262D\355\3568\205\330\3568!\211@\340\357\"\203\321\322\"\262\202\313\262\211\203\fA\262\360\361\362#\262\211\205\362Q\266\202D\363\3648D\365\3668D\367\370	8D\371\372\n8\373\232\205;\374D\375\3768D\377\201@\f8D\201A\201B
8\205c\201C\320\201B8\323\"!D\201D\201E8\205}\201C\320\201E8\323\"!D\201F\3348\205\223\201C\320\3348\323\"!D\257\262\266\204)\207" [describe-char-unicodedata-file file-exists-p error "`unicodedata-file' %s not found" get-buffer-create " *Unicode Data*" buffer-size 0 insert-file-contents format "%04X" nil re-search-forward "^" t "^\\([^;]+\\);[^;]+First>;" string-to-number match-string 1 16 looking-at "^\\([^;]+\\);[^;]+Last>;" mapcar #[257 "\211G\300V\205\211\207" [0] 3 "\n\n(fn ELT)"] 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" 2 canonical-combining-class "Bidi category" 3 bidi-class "Decomposition" 4 "\\`<\\(.+\\)>\\'" mapconcat #[257 "\300\301\302\"!\207" [string string-to-number 16] 5 "\n\n(fn ARG)"] " " "Decimal digit value" 5 "Digit value" 6 "Numeric value" 7 "Mirrored" 8 "Y" "yes" "Old name" 9 "ISO 10646 comment" 10 "Uppercase" 11 string "Lowercase" 12 "Titlecase"] 24 (#$ . 8254)])
#@17 

(fn POS CHAR)
(defalias 'describe-char-display #[514 "\300\301 !\2034\302\"\211\2053\303@\304\"\305@!A\211\250\203(\306\307$\2021\306\310@A%\266\203\207\311\312\"\313 \206>\314\315#\211\205K\316\"\207" [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] 12 (#$ . 10507)])
#@11 

(fn CH)
(defalias 'describe-char-padded-string #[257 "\300 \203\301\302\"\203\303\304!\305\306\307\310\"$\207\304!\207" [display-multi-font-p internal-char-font nil compose-string string 0 1 format "	%c	"] 8 (#$ . 10992)])
(put 'describe-char-padded-string 'byte-optimizer 'byte-compile-inline-expand)
#@21 

(fn CATEGORY-SET)
(defalias 'describe-char-categories #[257 "\300!\211\301=?\205\302\303\304#C\207" [category-set-mnemonics "" mapconcat #[257 "\300!\301\302\"\203\303\304\305\"\306\305\225T\307O#\202\211\310\311#\207" [category-docstring string-match "\\`\\(.*?\\)\n" propertize match-string 1 help-echo nil format "%c:%s"] 8 "\n\n(fn X)"] ", "] 6 (#$ . 11311)])
(put 'describe-char-categories 'byte-optimizer 'byte-compile-inline-expand)
#@833 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.

(fn POS &optional BUFFER)
(defalias 'describe-char #[513 "\306!\204	p\262pq\210dY\203\307\310!\210f?\205!\211\311Y\211\203)\312\2023\313\314\"\2063\315!\316\317\211\320$\317\321 \206E	\206E\n\211\205M\211H\322\323\324
!\"\311W\203c\325	!\202s\326\204p\327\312\"\202r	!\330\331!\332\333\334\335\336!\337\"\340$\216\341\"\210r\211q\210\342 *\262\317\211\211\203\266\343
\"\211\262\204\272\315!\262\f\343
\"\262\202\272
\262
\344>\203\317\345\326\346!\347\320#P\262\202
\350>\203\345\345\326\346\351\"\347\320#P\262\202
\352>\203\372\345\326\353!\347\320#P\262\202\354\355\"\356>\203\345\326\351!\347\320#P\262\n\203\246\3572\240\n@A@\340
8\317\360!\203\377\360\333H!\203\377Z\211G\340Z)\333\317\211\211W\203k\211\f\340\\H*\211\262\203k\211\361H)W\203kT\262\202A\203uU\203z\362\357\317\"\210\211\333H)\262\363\n\211\361H)\361#\262		\\\262\n\262W\203\301\211\f\340\\H*\211\262\203\301\211\333H)U\203\301T\262\202\230\nTU\203\363SU\203\363\211\f\340\\H*\211\262\203\363\211\340H)U\203\363\362\357\317\"\210SD\244\266\202/G\333\211W\203(\211H\211\262\250\203 \364\"BB\262\210\211T\262\202\266
\237\262W\203pTW\203]\365\366\367{\370#\371\366\367T	{\370#\372\260\240\210\202\221\373\366\367{\370#\372Q\240\210\202\221TW\203\214\374\366\367T{\370#\372Q\240\210\202\221\317\240\210A\375\376{\"\240\266\2040\204\246\317\262\377ed\201O \201P\201QS_\361]\"\201R \333U\203\310\370\202\321\375\201S\201R \"i\361U\203\337TU\204\366\375\201T\n\n	&\202U\203\f\375\201U%\202\375\201V&\266\206D\201W\375\201X\201Y\345\201Z!#\211\211&D\201[\201\\\201]!\201^\201_\201`\201aCD\257\375\201b\201c!\"E\201d\250\203\205\375\201eW\203|\201f\202\201g\"\202\220\375\201h@A#\201i!\340X\203\350\201\\\201j\201k\201l\201m\201aDD\201n\201o\201p\201q\201r\201s\201t\201u\201v!!\201wBB\201xBBE\257F\201yBBBB\202\351\211\262D\201z@H\211\205\201{\201]!DC\262\201|\201}!\330\201~!r\211q\210\332\333\201\335\336!\201\200\"\340$\216\201\201!\210\342 *\262\262D\201\202?\205h\201\203!\211\203c\211\201\204!\211\370=?\205^\366\201\205\201\206#C\266\202\202f\201\207\262B\201\210?\205\377A\201\211=\205\201\201\212!\211:\203\267\201\213\372\366\201\214\201\215#\372Q\201\216\201\\B\201\217\201\220\201\221\201aBCD\257\201\222\257\202\375\201\223 \201\224U\203\312\201\225\202\333\354\201\226\"\206\333\354\201\227\"\211\203\363\201\230\"\203\363\375\201\231#\202\372\375\201\232\"\266\202C\262B\201\233\203\201\234\201\235\201v!\201\236\"\317\"\202$\375\201\237\"D\201\240\203ZC\201\241#\211\203L\201\234\"\375\201\242\"D\202U\201\243\201]!D\266\202\202b\375\201\237\"CB\201\244\203\261\201\245!\262G\333\211W\203\235\211H\364#\201\246H!\"BI\266\211T\262\202w\266\375\201\247\366\201\250\201\251#\"\202\362\203\275A@\202\362\364\"\201\252\201\253 !\203\340\211\203\332\201\254P\202\360\201\255\202\360\211\203\355\375\201\256\"\202\360\201\257\262D\257\206\374?\205jD\203\"\212b\210\201\260\320E\201\261!)\262)\203\"\201\262\202jF\203;\203;\201\263=\203;\201\264\202jF\203T\203T\201\265>\203T\201\266\202j\201\267W\205j\201\270>?\205j\201\266\211\205\215\201\271\201\\\201]!\201\272\201\273\201\274\201aCD\257DC\262?\205\250\201\275!\211\205\246\201\276\370DB\262$BBBB\262\201Y\201\277\322\201\300\"\"\262q\210\201\301\201\302E\201\303\201\304!\"\210G\317\211\223\210\201\305HB\201\306IBIH\201\253 J\201\307 \201\310!\211K\317\211rKq\210\375\201\311\"\211\203c\211@\211A@\203\\\375@\"c\210\211A\211\203V\211@\211\242\201\\=\203A\201\251c\210\201\312!\210\202O\211G\333U\204O\201\251\261\210A\266\202\202$\210\201\313c\210A\266\202\202\266	\203\233\212eb\210\201\314\201\315!\210`	G\\\201\316\332\201\317\201\320\335\336!\201\321\"\201\322\201\323%\f\"\266)\203\201\324c\210\201\325c\210G\333\211W\203\211\201\246H@!\201\326\345\201\251\201\327\201\330#HA\206\327\201\331\201\313\261\210\201\332H@!\211\203\345\201\251\201\327\201\333#\201\334\261\210\201\335\201\336\"c\210\266\211T\262\202\256\266\203\276	\201\337c\210@\203%@c\210\360\3408!\203\335\360\3408\333H!\203\335\3408\211\211\211\333H)\333H)\201\3408\201\3418\317\201\342!\203\243\201\343\201]\201\344\201\345\"!\201\326\201\346!\333H\201\347\261\210X\203\330\211\f\340\\H*\211\262\203\330\375\201\350\"c\210T\262\202~\201\351c\210X\203\330\211\f\340\\H*\211\262\203\330\375\201\352\211\340H)\211\340H)#c\210T\262\202\250\266\202\276	\201\353c\210\320C\201\316\332\201\317\201\354\335\336!\201\355\"\201\356\201\357%\3408\"\266\201\360c\210\201\252\201\253 !\203~	\201\361c\210
\211\203z	\211@\211@\201\356U\204s	\201\362@\201\363 \203U	\201\364\317\"\203U	\201\365\326!\333\361\375\201\366\"$\262\202Z	\326!\262\201\326\345\201\251\201\327\201\367#A\206p	\201\331\261\210A\266\202\202	\210\202\261	\201\370c\210
\211\203\260	\211@\201\371@\201\372\345\201\251\201\327\201\373#A\206\246	\201\374\261\210A\266\202\202\205	\210\201\375\201\376!\201\377\261\210\204M\nL\204\316	\201\202\321	\201c\210\201\\\201\201\201\201\320%\210\201\313c\210L\320=\203\374	\322\201M\"\237\202\n\201\267W\203\n\201\201L\"\202\nL\211\203L\n\211@\354\"\317\203C\n\201	\"\262\211\203:\n\375\201\n$\202A\n\375\201#c\210\266A\266\202\202\n\210\203V\nc\210\320\211N)\262rq\210\201\f\317\"\262)\201
\201!\203}\n\201\"\202~\n\211)\266\204*\266\216\207" [enable-multibyte-characters buffer-display-table standard-display-table gstring i glyph 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 #[257 "\300!\207" [overlay-properties] 3 "\n\n(fn O)"] overlays-at single-key-description string decode-char generate-new-buffer " *text-props*" make-byte-code 0 "\301\300!\207" vconcat vector [kill-buffer] 2 describe-text-properties buffer-string encode-char (8234 8237) propertize 8236 invisible (8235 8238) 8206 (8294 8295 8296) 8297 get-char-code-property bidi-class (R AL) tag vectorp 1 throw + describe-char-display " with the surrounding characters \"" mapconcat describe-char-padded-string "" "\" and \"" "\"" " with the preceding character(s) \"" " with the following character(s) \"" format "composed to form \"%s\" (see below)" "position" char-script-table input-method-function current-input-method buffer-file-coding-system show-trailing-whitespace inhibit-changing-match-data nobreak-char-display help-window-point-marker temp-buffer-window-setup-hook temp-buffer-window-show-hook help-window-old-frame standard-output describe-char-unidata-list char-code-property-alist buffer-read-only buffer-size round 100.0 window-hscroll ", 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 '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 char-to-string (nil t) ((goto-char (match-beginning 0))) ('follow-link t 'help-echo "mouse-2, RET: show this character in its character set") append "script" "syntax" syntax-after " *temp*" "\301\300!\205	\302\300!\207" [buffer-name kill-buffer] internal-describe-syntax-value "category" char-category-set category-set-mnemonics #[257 "\300!\301\302\"\203\303\304\305\"\306\305\225T\307O#\202\211\310\311#\207" [category-docstring string-match "\\`\\(.*?\\)\n" propertize match-string 1 help-echo nil format "%c:%s"] 8 "\n\n(fn X)"] ", " ("-- none --") "to input" quail-input-method quail-find-key "type" identity "\" or \"" "with" 'type 'help-input-method 'help-args "input method" ucs-names 7 "BELL (BEL)" name old-name gethash "type \"C-x 8 RET %x\" or \"C-x 8 RET %s\"" "type \"C-x 8 RET %x\"" "buffer code" encoded-string-description encode-coding-string emacs-internal "#x%02X" "file code" encode-coding-char "(encoded by coding system %S)" "not encodable by coding system" "display" copy-sequence glyph-char "by display table entry [%s] (see below)" #[257 "\300\301\302@!\"\207" [format "?%c" glyph-char] 5 "\n\n(fn X)"] " " display-graphic-p selected-frame "by this font (glyph code)\n    " "no font available" "terminal code %s" "not encodable for terminal" "[ 	]+$" 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 #[257 "\211A@\203\n\211@G\207\300\207" [0] 2 "\n\n(fn X)"] help-setup-xref describe-char called-interactively-p interactive help-mode-setup help-mode-finish help-buffer temp-buffer-window-setup "%%%ds:" eval "\n" re-search-forward "(displayed as " mapc 257 "\301`\300\"\205\302@A@#\210AA\262\202\207" [make-overlay overlay-put] 6 "\n\n(fn PROPS)" "\nThe display table entry is displayed by " "these fonts (glyph codes):\n" 58 display (space :align-to 5) "-- no font --" glyph-face (space :align-to 5) "face: " format-message "`%s'\n" "\nComposed" 3 4 fontp " using this font:\n  " font-get :type query-font "\nby these glyphs:\n" "  %S\n" " by these characters:\n" " %c (#x%x)\n" " by the rule:\n	(" "\300\242\203\f\300\301\240\210\202\302c\210\211:\203\303\304\"c\207\211\305U\203%\306!c\207\307c\210\211\310 \203F\311\301\"\203F\312\313!\314\315\303\316\"$\262\202K\313!\262c\207" [nil " " format "%S" 9 single-key-description 63 display-multi-font-p internal-char-font compose-string string 0 1 #1="	%c	"] 9 "\n\n(fn X)" ")\nThe component character(s) are displayed by " "these fonts (glyph codes):" "\n " display-multi-font-p internal-char-font compose-string #1# (space :align-to 5) "these terminal codes:" "\n  " ":" (space :align-to 4) "-- not encodable --" substitute-command-keys "\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 #[128 "\300\301!\207" [customize-variable describe-char-unidata-list] 3 "\n\n(fn &rest IGNORE)"] follow-link car remq decomposition char-code-property-description "  %s: %s (%s)\n" "  %s: %s\n" temp-buffer-window-show functionp help-window-setup] 41 (#$ . 11774) "d"])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias describe-char-after describe-char nil make-obsolete "22.1"] 4)
#@537 Truncate NAME at white spaces such that it is no longer than WIDTH.

Split NAME on white space character and return string with as
many leading words of NAME as possible without exceeding WIDTH
characters.  If NAME consists of white space characters only,
return an empty string.  Three dots ("...") are appended to
returned string if some of the words from NAME have been omitted.

NB: Function may return string longer than WIDTH if name consists
of a single word, or it's first word is longer than WIDTH
characters.

(fn NAME WIDTH)
(defalias 'describe-char-eldoc--truncate #[514 "\300!\211\203Q\211@GZ\262\211A\2039\211A@GAA\203\"\301\202#\302\\X\2039\211A\262\303@G\302#\262\202\211A\205?\304\305\241\210\306\307\310#P\262\262\202R\311\207" [split-string 4 1 - "..." nil mapconcat identity " " ""] 9 (#$ . 23970)])
#@690 Format a description for character CH which is no more than WIDTH characters.

Full description message has a "U+HEX: NAME (GC: GENERAL-CATEGORY)"
format where:
- HEX is a hexadecimal codepoint of the character (zero-padded to at
  least four digits),
- NAME is name of the character.
- GC is a two-letter abbreviation of the general-category of the
  character, and
- GENERAL-CATEGORY is full name of the general-category of the
  character.

If WIDTH is non-nil some elements of the description may be
omitted to accommodate the length restriction.  Under certain
condition, the function may return string longer than WIDTH, see
`describe-char-eldoc--truncate'.

(fn CH &optional WIDTH)
(defalias 'describe-char-eldoc--format #[513 "\300\301\"\211\205\334\302\303\304\"\305\306#\300\307\"\310\307\"\203*GX\204*\311\"\262\312\313O\313\314O\227P\262\302\305\315#\262\302\316!\305\317#\262\211\203Q\302\305\317#\262GGG\205]G\203\204\203s\320\321%	X\203\204\322	\323	\322\n\324\260\202\330\203\242\320\325$	X\203\242\322	\323\324\260\202\330\203\263\320\325$	X\203\301\322	\323	\324\260\202\330\320\326#	X\203\326\323\324R\202\330\266\204\266\203\207" [get-char-code-property name propertize format "U+%04X" face font-lock-constant-face general-category char-code-property-description describe-char-eldoc--truncate 0 1 nil font-lock-variable-name-face symbol-name font-lock-comment-face + 7 ": " " (" ")" 5 3] 18 (#$ . 24821)])
#@474 Return a description of character at point for use by ElDoc mode.

Return nil if character at point is a printable ASCII
character (i.e. codepoint between 32 and 127 inclusively).
Otherwise return a description formatted by
`describe-char-eldoc--format' function taking into account value
of `eldoc-echo-area-use-multiline-p' variable and width of
minibuffer window for width limit.

This function is meant to be used as a value of
`eldoc-documentation-function' variable.
(defalias 'describe-char-eldoc #[0 "g\211\301U?\205#\211\302W\204\211\303V\205#\304\305=?\205\"\306\307 !S\"\207" [eldoc-echo-area-use-multiline-p 0 32 127 describe-char-eldoc--format t window-width minibuffer-window] 5 (#$ . 26341)])
(provide 'descr-text)