;ELC   
;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:49:48 2013
;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/descr-text.el
;;; in Emacs version 23.4.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\3029\203 \202 @!\303\304\305\306\307DDE\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 (#$ . 561)])
#@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 \314GSO\315\311\312\313\n	#,\204= G\316 iZX\203= c\202N \317\320\321\322\323\324\325\326\327DDEE\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 (#$ . 976)])
#@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@DB\202 )\310\"\307\211\203\205 @\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 #1=#:--cl-dolist-temp-- 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 (#$ . 1611)])
#@36 Describe a text property category.
(defalias 'describe-text-category #[(category) "\306\307D\310\311!\"\210\312 \313\314\315\316\317#\210	)\317\313\211\223\210\320 \220rq\210\321\322\323\"\324\261\210\325\326!!\210eb)\221\327\f!\203D \330\n\"\210\313*\207" [category list list-of-window-tuples list-of-frames help-window help-window-point-marker help-setup-xref describe-text-category called-interactively-p interactive frame-list nil walk-windows #[(window) "\302!\303!\304!F	B\211\207" [window list window-buffer window-start window-point] 5] no-mini t help-buffer "Category " format "%S" ":\n\n" describe-property-list symbol-plist windowp help-window-setup standard-output] 5 (#$ . 2730) "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\233 \311\n!\2045 \312\n!\2045 \313\314!\202\233 \315\316!r\fq\210\317\216p\320\321\322\n\"\323\261\210	q\210\310\n\"\210q\210\324\325\n\326	F\327\330!\"\210\331 \326\332\333\334\335#\210)\"#\335$%\326\211\223\210\336 \220r&q\210\337!\210eb)\221\340$!\203\227 \341#\"\"\210\326$-)\207" [src-buf buffer pos output-buffer #1=#:temp-buffer list 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 frame-list walk-windows #[(window) "\302!\303!\304!F	B\211\207" [window list window-buffer window-start window-point] 5] no-mini t help-buffer buffer-swap-text windowp help-window-setup list-of-window-tuples list-of-frames help-window help-window-point-marker standard-output] 5 (#$ . 3463) "d"])
(defalias 'describe-text-properties-1 #[(pos output-buffer) "\306!\307!\310\311\"\310\312\"\310\313\"\314\315!\205  \315!\211\n\2050 \n\n\316\n\317\"),\n\205; \320\n!\206F \f\206F -r.q\210\321-!\203y \322 \210\203_ \323\202l \f\203g \324\202l \205l \325c\210\326c\210\327-!\210\330c\210\n\203\224 \321\f!\204\224 \322 \210\331\332\333,\"\334\335\261\210\n\203\351 \322 \210\nG\336=\203\250 \337c\210\202\262 \340\332\341\nG\"\342\261\210\n\343/\2110\203\345 0@/\344\332\341\345/!\"\346\332\341\347/!\"\350\261\210\351\352/!!\2100A\2110\204\274 *\350c\210	\205\366 \322 \210\353c\210\351	!.\n\207" [pos properties overlays wid-field wid-button wid-doc text-properties-at overlays-at 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 #1=#:--cl-dolist-temp--] 9])
#@74 List of Unicode-based character property names shown by `describe-char'.
(custom-declare-variable 'describe-char-unidata-list ''(name old-name general-category decomposition) '(#$ . 6244) :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))))
#@424 Location of Unicode data file.
This is the UnicodeData.txt file from the Unicode Consortium, used for
diagnostics.  If it is non-nil `describe-char' will print data
looked up from it.  This facility is mostly of use to people doing
multilingual development.

This is a fairly large file, not typically present on GNU systems.
At the time of writing it is at the URL
`http://www.unicode.org/Public/UNIDATA/UnicodeData.txt'.
(custom-declare-variable 'describe-char-unicodedata-file 'nil '(#$ . 7269) :group 'mule :version "22.1" :type '(choice (const :tag "None" nil) file))
#@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\"\211Y\203f \327y\210\331\332!\210	\325\326\327!\330\"\211V\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\346A\"\203\262 \326\327A\"\347P\202\264 A)D\350@A@B\351\352\353B!\"\206\311 B)D\354@A@B\351\355\353B!\"\206\336 B)D\356@A@B\351\357\353B!\"\206\363 B)D\360\361@8\205;\335\361@8!\211C@D\345\362D\"\203\326\327D\"D\202\320DD\203(CAC\363\364C\365#CD\211\2057\365CQ*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 (#$ . 7849)])
(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\302\"\203 \303\304!\305\306\307\310\"$\207\304!\207" [ch 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\307\312	\"#\202 	\313\314\n#*\207" [x c doc category-docstring string-match "\\`\\(.*?\\)\n\\(.*\\)\\'" propertize match-string 1 help-echo 2 format "%c:%s"] 6] ", "] 5])
(put 'describe-char-categories 'byte-optimizer 'byte-compile-inline-expand)
#@382 Describe the character after POS (interactively, the character after point).
Is POS is taken to be in buffer BUFFER or current buffer if nil.
The information includes character code, charset and code points in it,
syntax, category, how the character is encoded in a file,
character composition information (if relevant),
as well as widgets, buttons, overlays, and text properties.
(defalias 'describe-char #[(pos &optional buffer) "\306!\204 ppq\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!\"GF\204p \325!\202\201 \311W\203| \325!\202\201 \326\327!!H\330\331!I\332\216\333\nI\"\210rIq\210\334 +J\317\211KL\317MF\203\302 \335\f\"\211M\204\305 \315!\f\335\f\"M\202\305 M@\203\323 \336\337\215\204\323 \317@\340\341\342\343\344H\345\n!#\211\211%D\346\347\350\f!\351\352\353\354\fCD\257\341\355\356\f!\"E\357M\250\203\341M\360W\203\361\202\362M\"\202\341\363M@MA#N\364\f!\365X\203\\\347N\366\367\370\371\354\fDD\372\373\374\375\376\377\201\201 \201\202 \327!\201\203 BB\201\204 BBE\257F\201\205 BBBB\202^N)D\201\206 \201\207 \n!O\330\201\210 !PrPq\210\201\211 \216\201\212 O!\210\334 ,D\201\213 ?\205\302\201\214 !\211Q\203\276QQ\201\215 Q!\211R\201\216 =?\205\272\201\217 \201\220 R\201\221 #C*\202\301\201\222 )B\201\223 ?\205S\201\224 =\205\331\201\225 !\211T:\205\201\226 \201\227 \201\217 \201\230 T\201\231 #\201\227 Q\201\232 \347U\201\233 \201\234 \201\235 \354UCD\257F)B\201\236 F\203&\201\237 \201\240 \327!!\317\"\202,\341\201\241 \"D\201\242 F\203gVW\201\243 W\f#\211X\203[\201\237 XW\"\341\201\244 W\"D\202c\201\245 \350W!D*\202n\341\201\241 \"CB\201\246 E\203\310\201\247 E!\211EG\201\250 YZYZW\203\263EYEYH\201\251 \n\201\252 EYH!\"BI\210YT\211Y\202\212*\341\201\253 \201\217 \201\254 E\201\255 #\"\202@\203\330@\211[A@)\202\201\251 \n\"\\\201\256 \201\257  !\203\377\\\203\371\201\260 \\P\202\201\261 \202\\\203\341\201\262 \\\"\202\201\263 )D\201\264 E\206@?\205\204]\203B\212\nb\210\201\265 ^\320_\201\266 ^!+\203B\201\267 \202\204`\203Y\203Y\201\270 =\203Y\201\271 \202\204`\203p\203p\201\272 =\203p\201\273 \202\204\201\274 W\205\204\201\275 >?\205\204\201\273 \211a\205\244\201\276 \347\350a!\201\277 \201\300 \201\301 \354aCD\257DC)?\205\300\201\302 !\211b\205\277\201\303 \201\255 DbB)\"BBBBBBBBBK\343\201\304 \322\201\305 K\"\"L	q\210\201\306 \201\307 \nE\201\310 \201\311 !\"\210\201\312  \317c\201\313 \201\314 \201\315 \320#\210c)de\320fg\317\211\223\210\201\316  \220rhq\210\201\317 F!\210\341\201\320 L\"iK\317j\211k\203\323k@\211j\211[A@)\203\312\341ij@\"c\210jA\317l\211m\203\304m@\211l\242\347=\203v\201\255 c\210\201\321 l!\210\202\273\201\322 i\201\323 l\317no^\320_\201\324 ^on#,\206\235\201\325 l!\201\326 #\201\327  Y\203\263\201\323 c\210LTj\210\201\255 l\261\210mA\211m\204[*\201\323 c\210kA\211k\2047+G\203\367\212eb\210\201\330 \201\331 !\210`HG\\p\201\332 \201\333 G\"\210*E\203\322\201\334 c\210\201\256 \201\257  !\203\216\201\335 c\210EG\201\250 YqYqW\203\212\201\252 EYH@!\201\336 \344\201\255 \201\\ \201\337 #EYHA\206G\201\340 \201\323 \261\210\201\341 EYH@!\211a\203\200\344\201\255 \201\\ \201\342 #\201\343 \261\210\201\344 \350a!\201\345 Qc\210\201\323 c\210)YT\211Y\202*\202\322\201\346 c\210EG\201\250 YrYrW\203\321EYH@\344\201\255 \201\\ \201\347 #EYHA\206\302\201\350 \201\323 \261\210YT\211Y\202\237*@\203\261\201\351 c\210@@\203\347@@c\210\201\352 \365@8!\203\314\201\352 \365@8\201\250 H!\203\314\365@8\211s\211s\211s\201\250 H)\201\250 H)t\201\353 @8u\201\354 @8v\317w\201\355 t!\203\206\201\356 \350\201\357 t\201\360 \"!\201\336 \201\361 t!\201\250 H\201\362 \261\210uvX\203\310suY\211sY\365\\H*\211w\203\310\341\201\363 w\"c\210uT\211u\202Y\201\364 c\210uvX\203\310suY\211sY\365\\H*\211w\203\310\341\201\365 w\211w\365H)w\211w\365H)#c\210uT\211u\202\215-\202\261\201\366 c\210\320x\201\332 \201\367 \365@8\"\210)\201\370 c\210\201\256 \201\257  !\203i\201\371 c\210A\317j\211y\203ey@\211j@\201\372 U\204\\\201\373 j@z\201\374 \317z\"\203;\201\375 \201o z!\201\250 \201\326 \341\201\376 z\"$\202A\201o z!)\201\336 \344\201\255 \201\\ \201\377 #jA\206Y\201\340 \261\210yA\211y\204*\202\250\201 c\210A\317j\211{\203\247{@j\201j@\201\344\201\255 \201\\ \201#jA\206\233\201\350 \261\210{A\211{\204y*\201\201\261\210\204>|\204\300\201\202\303\201c\210\347\201\201	\201\n\201\320%\210\201\323 c\210|\320=\203\354\322\201\f}\"\237\202\356|\317j\211~\203=~@j\201j\"\317\211\200\2033\201j\200\"\211\203(\341\201j\200$\2021\341\201j\200#c\210*~A\211~\204\367*J\203GJc\210\201\201\326 !)\221\201f!\203b\201ed\"\210\317f.\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 tag (byte-code "@A@\3068\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\210A\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 #2=#:--cl-dotimes-temp-- component-chars] 9) "character" format "%s (%d, #o%o, #x%x)" apply propertize text-properties-at "preferred charset" insert-text-button symbol-name 'type 'help-character-set 'help-args quote "(%s)" charset-description "code point" 256 "0x%02X" "0x%04X" "0x%04X%04X" charset-dimension 2 '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)) 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 str syntax #3=#:temp-buffer category-set mnemonics input-method-function key-list current-input-method buffer-file-coding-system coding encoded i #4=#:--cl-dotimes-temp-- x display show-trailing-whitespace regexp inhibit-changing-match-data nobreak-char-display face unicodedata list list-of-window-tuples list-of-frames help-window help-window-point-marker standard-output formatter elt #5=#:--cl-dolist-temp-- clm #6=#:--cl-dolist-temp-- start string end #7=#:--cl-dotimes-temp-- #8=#:--cl-dotimes-temp-- gstring font from to glyph first #9=#:--cl-dolist-temp-- ch #10=#:--cl-dolist-temp-- describe-char-unidata-list char-code-property-alist #11=#:--cl-dolist-temp-- description val 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" [#3# buffer-name kill-buffer] 2)) internal-describe-syntax-value "category" char-category-set category-set-mnemonics #1# mapconcat #[(x) "\303!\304\305	\"\203 \306\307\310	\"\311\307\312	\"#\202 	\313\314\n#*\207" [x c doc category-docstring string-match "\\`\\(.*?\\)\n\\(.*\\)\\'" propertize match-string 1 help-echo 2 format "%c:%s"] 6] ", " ("-- none --") "to input" quail-input-method quail-find-key "type" "\"" identity "\" or \"" "with" 'type 'help-input-method 'help-args "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 0 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 escape-glyph 32 (9 10) "hardcoded face" 'type 'help-face 'help-args describe-char-unicode-data "Unicode data" max #[(x) "\211A@)\203 @G\207\301\207" [x 0] 2] help-setup-xref describe-char called-interactively-p interactive frame-list walk-windows #[(window) "\302!\303!\304!F	B\211\207" [window list window-buffer window-start window-point] 5] no-mini help-buffer set-buffer-multibyte "%%%ds:" eval + "\n" string-match string-width 1 window-width re-search-forward "character:[ 	\n]+" mapc #[(props) "\304`\"\n\205 \305	\n@\nA@#\210\n\211AA)\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\303\n\"\203< \313\314\n!\315\316\305\317\n\"$\202? \314\n!)c\207" [first x ch nil " " format "%S" 9 single-key-description 63 internal-char-font compose-string string 0 1 #12="	%c	"] 7] ")\nThe component character(s) are displayed by " "these fonts (glyph codes):" 9 "\n " internal-char-font compose-string #12# (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 get-char-code-property char-code-property-description "  %s: %s (%s)\n" "  %s: %s\n" toggle-read-only windowp help-window-setup] 20 (#$ . 11329) "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)