Current File : //usr/local/share/emacs/27.2/lisp/descr-text.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\310\242\311\242GS#\240\210\312\242\305\306\307#)\266\203\204P \211\242G\313 iZX\203P \211\242c\202c \314\315\316\317\320\321\322\323!\324\"\325\326%\327\330%\207" [inhibit-changing-match-data (error) pp-to-string prin1-to-string "\n\\'" nil t string-match substring 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\205u \211@\211@A@\303\304\305\"\306\307#c\210\310\267\202e \311\312!\313\314\315\316\317\320!\321\"\322\323%\324\325\326\327&\210\202i \311\304\330\"\331\332\333C%\210\202i \334!\210\266\335c\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 #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (category 58 face 86 font-lock-face 86 mouse-face 86)) 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" "%S" type help-face help-args describe-text-sexp "\n"] 14 (#$ . 1974)])
#@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 (#$ . 3167) "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\203 q\210\202 p\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 (#$ . 3923) "d"])
#@26
(fn POS OUTPUT-BUFFER)
(defalias 'describe-text-properties-1 #[514 "\300!\301\211T\"\302\303\"\302\304\"\302\305\"\306\307!\205 \307!\211\205* \211\310\311\"\262\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" [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" 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 (#$ . 5448)])
(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\203t X\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\376 8D\377\201@ \f8D\201A \201B
8\205c\201C \320\201B 8\323\"!D\201D \201E 8\205}\201C \320\201E 8\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 (#$ . 8300)])
#@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 (#$ . 10553)])
#@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 (#$ . 11038)])
(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\307\305\225T\"#\202 \211\310\311#\207" [category-docstring string-match "\\`\\(.*?\\)\n" propertize match-string 1 help-echo substring format "%c:%s"] 8 "\n\n(fn X)"] ", "] 6 (#$ . 11357)])
(put 'describe-char-categories 'byte-optimizer 'byte-compile-inline-expand)
#@1256 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:
its codepoint;
its charset (see `char-charset'), overridden by the `charset' text
property at POS, if any;
the codepoint of the character in the above charset;
the character's script (as defined by `char-script-table')
the character's syntax, as produced by `syntax-after'
and `internal-describe-syntax-value';
its category (see `char-category-set' and `describe-char-categories');
how to input the character using the keyboard and input methods;
how the character is encoded in BUFFER and in BUFFER's file;
the font and font glyphs used to display the character;
the composition information for displaying the character (if relevant);
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\267\202\354 \345\326\346!\347\320#P\262\202\345\326\346\350\"\347\320#P\262\202\345\326\351!\347\320#P\262\202\352\353\"\354>\203\345\326\350!\347\320#P\262\n\203\230\3552\222\n@ A@\340
8\317\356!\203\361\356\333H!\203\361Z\211G\340Z)\333\317\211\211W\203] \211\f\340\\H*\211\262\203]\211 \357H)W\203]T\262\2023\203gU\203l\360\355\317\"\210\211 \333H)\262\361\n\211 \357H)\357#\262 \\\262\n\262W\203\263 \211\f\340\\H*\211\262\203\263\211 \333H)U\203\263T\262\202\212\nTU\203\345SU\203\345 \211\f\340\\H*\211\262\203\345\211 \340H)U\203\345\360\355\317\"\210SD\244\266\202!G\333\211W\203\211H\211\262\250\203\362\"BB\262\210\211T\262\202\364\266
\237\262W\203bTW\203O\363\364\365{\366#\367\364\365T {\366#\370\260\240\210\202\203\371\364\365{\366#\370Q\240\210\202\203TW\203~\372\364\365T{\366#\370Q\240\210\202\203\317\240\210A\373\374{\"\240\266\2040\204\230\317\262 \375ed\376 \377\201O S_\357]\"\201P \333U\203\266\366\202\277\373\201Q \201P \"i\357U\203\315TU\204\344\373\201R \n\n &\202 U\203\372\373\201S %\202 \373\201T &\266\206D\201U \373\201V \201W \345 \201X !#\211\211&D\201Y \201Z \201[ !\201\\ \201] \201^ \201_ CD\257\373\201` \201a !\"E\201b \250\203s\373\201c W\203j\201d \202m\201e \"\202~\373\201f @A#\201g !\340X\203\326\201Z \201h \201i \201j \201k \201_ DD\201l \201m \201n \201o \201p \201q \201r \201s \201t !!\201u BB\201v BBE\257F\201w BBBB\202\327\211\262D\201x @H\211\205\360\201y \201[ !DC\262\201z \201{ !\330\201| !r\211q\210\332\333\201} \335\336!\201~ \"\340$\216\201 !\210\342 *\262\262D\201\200 ?\205V\201\201 !\211\203Q\211\201\202 !\211\366=?\205L\364\201\203 \201\204 #C\266\202\202T\201\205 \262B\201\206 ?\205\355A\201\207 =\205o\201\210 !\211:\203\245\201\211 \370\364\201\212 \201\213 #\370Q\201\214 \201Z B\201\215 \201\216 \201\217 \201_ BCD\257\201\220 \257\202\353\201\221 \201\222 U\203\270\201\223 \202\311\352\201\224 \"\206\311\352\201\225 \"\211\203\341\201\226 \"\203\341\373\201\227 #\202\350\373\201\230 \"\266\202C\262B\201\231 \203 \201\232 \201\233 \201t !\201\234 \"\317\"\202\373\201\235 \"D\201\236 \203HC\201\237 #\211\203:\201\232 \"\373\201\240 \"D\202C\201\241 \201[ !D\266\202\202P\373\201\235 \"CB\201\242 \203\237\201\243 !\262G\333\211W\203\213\211H\362#\201\244 H!\"BI\266\211T\262\202e\266\373\201\245 \364\201\246 \201\247 #\"\202\340\203\253A@\202\340\362 \"\201\250 \201\251 !\203\316\211\203\310\201\252 P\202\336\201\253 \202\336\211\203\333\373\201\254 \"\202\336\201\255 \262D\257\206\352?\205XD\203\212b\210\201\256 \320 E\201\257 !)\262)\203\201\260 \202XF\203)\203)\201\261 =\203)\201\262 \202XF\203B\203B\201\263 >\203B\201\264 \202X\201\265 W\205X\201\266 >?\205X\201\264 \211\205{\201\267 \201Z \201[ !\201\270 \201\271 \201\272 \201_ CD\257DC\262?\205\226\201\273 !\211\205\224\201\274 \366DB\262$BBBB\262\201W \201\275 \322\201\276 \"\"\262q\210\201\277 \201\300 E\201\301 \201\302 !\"\210G\317\211\223\210\201\303 HB\201\304 IB I H\201\251 J\201\305 \201\306 !\211 K\317\211rKq\210\373\201\307 \"\211\203Q\211@\211A@\203J\373@\"c\210\211A\211\203D\211@\211\242\201Z =\203/\201\247 c\210\201\310 !\210\202=\211G\333U\204=\201\247 \261\210A\266\202\202\210\201\311 c\210A\266\202\202\375\266 \203\211\212eb\210\201\312 \201\313 !\210` G\\\201\314 \332\201\315 \201\316 \335\336!\201\317 \"\201\320 \201\321 %\f\"\266) \203\376\201\322 c\210\201\323 c\210 G\333\211W\203\374\211\201\244 H@!\201\324 \345\201\247 \201\325 \201\326 #HA\206\305\201\327 \201\311 \261\210\201\330 H@!\211\203\363\345\201\247 \201\325 \201\331 #\201\332 \261\210\201\333 \201\334 \"c\210\266\211T\262\202\234\266\203\257 \201\335 c\210@\203@c\210\356\3408!\203\316\356\3408\333H!\203\316\3408\211\211\211\333H)\333H)\201\336 8\201\337 8\317\201\340 !\203\224\201\341 \201[ \201\342 \201\343 \"!\201\324 \201\344 !\333H\201\345 \261\210X\203\311 \211\f\340\\H*\211\262\203\311\373\201\346 \"c\210T\262\202l\202\311\201\347 c\210X\203\311 \211\f\340\\H*\211\262\203\311\373\201\350 \211 \340H)\211 \340H)#c\210T\262\202\231\266\202\257 \201\351 c\210\320C\201\314 \332\201\315 \201\352 \335\336!\201\353 \"\201\354 \201\355 %\3408\"\266\201\356 c\210\201\250 \201\251 !\203o \201\357 c\210
\211\203k \211@\211@\201\354 U\204d \201\360 @\201\361 \203F \201\362 \317\"\203F \201\363 \326!\333\357\373\201\364 \"$\262\202K \326!\262\201\324 \345\201\247 \201\325 \201\365 #A\206a \201\327 \261\210A\266\202\202
\210\202\242 \201\366 c\210
\211\203\241 \211@\201\367 @\201\370 \345\201\247 \201\325 \201\371 #A\206\227 \201\372 \261\210A\266\202\202v \210\201\373 \201\374 !\201\375 \261\210\204>\nL\204\277 \201\376 \202\302 \201\377 c\210\201Z \201 \201\201\201\320%\210\201\311 c\210L\320=\203\355 \322\201M\"\237\202\n\201\265 W\203\n\201\201L\"\202\nL\211\203=\n\211@\352\"\317\2034\n\201\"\262\211\203+\n\373\201$\2022\n\373\201 #c\210\266A\266\202\202\n\210\203G\nc\210\320\211N)\262rq\210\201\n\317\"\262)\201 \201\f!\203n\n\201\f\"\202o\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 #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (8234 193 8237 193 8235 207 8238 207 8294 222 8295 222 8296 222)) propertize 8236 invisible 8206 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" buffer-size round 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 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 "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\307\305\225T\"#\202 \211\310\311#\207" [category-docstring string-match "\\`\\(.*?\\)\n" propertize match-string 1 help-echo substring 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 (#$ . 11828) "d"])
#@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 (#$ . 24396)])
#@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\335 \302\303\304\"\305\306#\300\307\"\310\307\"\203* GX\204* \311\"\262\312\313\314#\312\314\"\227P\262\302\305\315#\262\302\316!\305\317#\262\211\203R \302\305\317#\262GGG\205^ G\203\205 \203t \320\321% X\203\205 \322 \323 \322\n\324\260\202\331 \203\243 \320\325$ X\203\243 \322 \323\324\260\202\331 \203\264 \320\325$ X\203\302 \322 \323 \324\260\202\331 \320\326# X\203\327 \323\324R\202\331 \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 substring 0 1 font-lock-variable-name-face symbol-name font-lock-comment-face + 7 ": " " (" ")" 5 3] 18 (#$ . 25247)])
#@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 (#$ . 26778)])
(provide 'descr-text)
Mini Shell