;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@1693 Alist of symbols vs integer codes of glyph reference points.
A glyph reference point symbol is to be used to specify a composition
rule in COMPONENTS argument to such functions as `compose-region'.

The meaning of glyph reference point codes is as follows:

    0----1----2 <---- ascent	0:tl or top-left
    |         |			1:tc or top-center
    |         |			2:tr or top-right
    |         |			3:Bl or base-left     9:cl or center-left
    9   10   11 <---- center	4:Bc or base-center  10:cc or center-center
    |         |			5:Br or base-right   11:cr or center-right
  --3----4----5-- <-- baseline	6:bl or bottom-left
    |         |			7:bc or bottom-center
    6----7----8 <---- descent	8:br or bottom-right

Glyph reference point symbols are to be used to specify a composition
rule of the form (GLOBAL-REF-POINT . NEW-REF-POINT), where
GLOBAL-REF-POINT is a reference point in the overall glyphs already
composed, and NEW-REF-POINT is a reference point in the new glyph to
be added.

For instance, if GLOBAL-REF-POINT is `br' (bottom-right) and
NEW-REF-POINT is `tc' (top-center), the overall glyph is updated as
follows (the point `*' corresponds to both reference points):

    +-------+--+ <--- new ascent
    |       |  |
    | global|  |
    | glyph |  |
 -- |       |  |-- <--- baseline (doesn't change)
    +----+--*--+
    |    | new |
    |    |glyph|
    +----+-----+ <--- new descent

A composition rule may have the form (GLOBAL-REF-POINT
NEW-REF-POINT XOFF YOFF), where XOFF and YOFF specify how much
to shift NEW-REF-POINT from GLOBAL-REF-POINT.  In this case, XOFF
and YOFF are integers in the range -100..100 representing the
shifting percentage against the font size.
(defconst reference-point-alist '((tl . 0) (tc . 1) (tr . 2) (Bl . 3) (Bc . 4) (Br . 5) (bl . 6) (bc . 7) (br . 8) (cl . 9) (cc . 10) (cr . 11) (top-left . 0) (top-center . 1) (top-right . 2) (base-left . 3) (base-center . 4) (base-right . 5) (bottom-left . 6) (bottom-center . 7) (bottom-right . 8) (center-left . 9) (center-center . 10) (center-right . 11) (ml . 3) (mc . 10) (mr . 5) (mid-left . 3) (mid-center . 10) (mid-right . 5)) (#$ . 86))
#@152 Encode composition rule RULE into an integer value.
RULE is a cons of global and new reference point symbols
(see `reference-point-alist').

(fn RULE)
(defalias 'encode-composition-rule #[257 "\211\250\203\f\211\301W\203\f\207\211:\203\241\211@
A\302\211:\203UA@\262\3038\262
@\262
\304Y\203B
\305X\203B\211\304Y\203B\211\305X\204H\306\307\"\210
\310\\\262\211\310\\\262
\202[\311\262\311\262
\250\204f\236A\262\250\204q\236A\262\311Y\203\211\312W\203\211\311Y\203\211\312W\204\217\306\313\"\210\314\315\316\"\315\317\"\312_\\#\207\306\313\"\207" [reference-point-alist 144 nil 2 -100 100 error "Invalid composition rule: %s" 128 0 12 "Invalid composition rule: %S" logior ash 16 8] 10 (#$ . 2233)])
#@18 

(fn RULE-CODE)
(defalias 'decode-composition-rule #[257 "\301
!\203\f\211\302W\204\303\304\"\210\305
\306\"\307\305\310\"\311\"\312\211\307\311\"\262\313\314\245\"@\262\313\314\246\"@\262

\203H
9\203H\211\203H\2119\204N\303\315\"\210\316U\203^\316U\203^

B\207\317Z\262\317Z\262
F\207" [reference-point-alist natnump 16777216 error "Invalid encoded composition rule: %S" ash -16 logand -8 255 nil rassq 12 "Invalid composition rule code: %S" 0 128] 9 (#$ . 2985)])
#@36 

(fn COMPONENTS &optional NOCOPY)
(defalias 'encode-composition-components #[513 "\211\204	\300!\262\301!\203/
G\302\211W\203*
\303H!I\210\211\304\\\262
\202\266\202E
A\211\203D\211\303@!\240\210\211AA\262
\2021\210
\207" [copy-sequence vectorp 1 encode-composition-rule 2] 9 (#$ . 3488)])
#@36 

(fn COMPONENTS &optional NOCOPY)
(defalias 'decode-composition-components #[513 "\211\204	\300!\262
G\301\211W\203$
\302H!I\210\211\303\\\262
\202\f\266
\207" [copy-sequence 1 decode-composition-rule 2] 9 (#$ . 3803)])
#@1882 Compose characters in the current region.

Characters are composed relatively, i.e. composed by overstriking
or stacking depending on ascent, descent and other metrics of
glyphs.

For instance, if the region has three characters "XYZ", X is
regarded as BASE glyph, and Y is displayed:
  (1) above BASE if Y's descent value is not positive
  (2) below BASE if Y's ascent value is not positive
  (3) on BASE (i.e. at the BASE position) otherwise
and Z is displayed with the same rule while regarding the whole
XY glyphs as BASE.

When called from a program, expects these four arguments.

First two arguments START and END are positions (integers or markers)
specifying the region.

Optional 3rd argument COMPONENTS, if non-nil, is a character, a string
or a vector or list of integers and rules.

If it is a character, it is an alternate character to display instead
of the text in the region.

If it is a string, the elements are alternate characters.  In
this case, TAB element has a special meaning.  If the first
character is TAB, the glyphs are displayed with left padding space
so that no pixel overlaps with the previous column.  If the last
character is TAB, the glyphs are displayed with right padding
space so that no pixel overlaps with the following column.

If it is a vector or list, it is a sequence of alternate characters and
composition rules, where (2N)th elements are characters and (2N+1)th
elements are composition rules to specify how to compose (2N+2)th
elements with previously composed N glyphs.

A composition rule is a cons of global and new glyph reference point
symbols.  See the documentation of `reference-point-alist' for more
details.

Optional 4th argument MODIFICATION-FUNC is a function to call to
adjust the composition when it gets invalid because of a change of
text in the composition.

(fn START END &optional COMPONENTS MODIFICATION-FUNC)
(defalias 'compose-region #[1026 "\301 \302\303!\204<\203\304!\262\305$\210\306
!)\207" [inhibit-read-only buffer-modified-p t vectorp encode-composition-components compose-region-internal restore-buffer-modified-p] 10 (#$ . 4043) "r"])
#@162 Decompose text in the current region.

When called from a program, expects two arguments,
positions (integers or markers) specifying the region.

(fn START END)
(defalias 'decompose-region #[514 "\301 \302\303\304#\210\305
!)\207" [inhibit-read-only buffer-modified-p t remove-text-properties (composition nil) restore-buffer-modified-p] 7 (#$ . 6181) "r"])
#@675 Compose characters in string STRING.

The return value is STRING with the `composition' property put on all
the characters in it.

Optional 2nd and 3rd arguments START and END specify the range of
STRING to be composed.  They default to the beginning and the end of
STRING respectively.

Optional 4th argument COMPONENTS, if non-nil, is a character or a
sequence (vector, list, or string) of integers.  See the function
`compose-region' for more detail.

Optional 5th argument MODIFICATION-FUNC is a function to call to
adjust the composition when it gets invalid because of a change of
text in the composition.

(fn STRING &optional START END COMPONENTS MODIFICATION-FUNC)
(defalias 'compose-string #[1281 "\300!\204
<\203\301!\262\204\302\262\204G\262\303%\210\207" [vectorp encode-composition-components 0 compose-string-internal] 11 (#$ . 6549)])
#@69 Return STRING where `composition' property is removed.

(fn STRING)
(defalias 'decompose-string #[257 "\300\301G\302$\210\207" [remove-text-properties 0 (composition nil)] 6 (#$ . 7428)])
#@443 Return a string from arguments in which all characters are composed.
For relative composition, arguments are characters.
For rule-based composition, Mth (where M is odd) arguments are
characters, and Nth (where N is even) arguments are composition rules.
A composition rule is a cons of glyph reference points of the form
(GLOBAL-REF-POINT . NEW-REF-POINT).  See the documentation of
`reference-point-alist' for more detail.

(fn &rest ARGS)
(defalias 'compose-chars #[128 "\300\211A@:\203+\301\302\"\211\203\211@B\262\211AA\262
\202
\237\260
\262\266\202\2020\260
\262\303\304G$\207" [nil encode-composition-components nocopy compose-string-internal 0] 8 (#$ . 7625)])
#@1693 Return information about a composition at or near buffer position POS.

If the character at POS has `composition' property, the value is a list
(FROM TO VALID-P).

FROM and TO specify the range of text that has the same `composition'
property, VALID-P is t if this composition is valid, and nil if not.

If there's no composition at POS, and the optional 2nd argument LIMIT
is non-nil, search for a composition toward the position given by LIMIT.

If no composition is found, return nil.

Optional 3rd argument STRING, if non-nil, is a string to look for a
composition in; nil means the current buffer.

If a valid composition is found and the optional 4th argument DETAIL-P
is non-nil, the return value is a list of the form

   (FROM TO COMPONENTS RELATIVE-P MOD-FUNC WIDTH)

COMPONENTS is a vector of integers, the meaning depends on RELATIVE-P.

RELATIVE-P is t if the composition method is relative, else nil.

If RELATIVE-P is t, COMPONENTS is a vector of characters to be
composed.  If RELATIVE-P is nil, COMPONENTS is a vector of characters
and composition rules as described in `compose-region'.

MOD-FUNC is a modification function of the composition.

WIDTH is a number of columns the composition occupies on the screen.

When Automatic Composition mode is on, this function also finds a
chunk of text that is automatically composed.  If such a chunk is
found closer to POS than the position that has `composition'
property, the value is a list of FROM, TO, and a glyph-string
that specifies how the chunk is to be composed; DETAIL-P is
ignored in this case.  See the function `composition-get-gstring'
for the format of the glyph-string.

(fn POS &optional LIMIT STRING DETAIL-P)
(defalias 'find-composition #[1025 "\300$
\203$\211G\301V\203$\302
8\203$\301
8\204$\303\3028\304\"\210\207" [find-composition-internal 3 2 decode-composition-components nocopy] 9 (#$ . 8320)])
#@550 Compose characters in current buffer after position POS.

It looks up the char-table `composition-function-table' (which
see) by a character at POS, and compose characters after POS
according to the contents of `composition-function-table'.

Optional 2nd arg LIMIT, if non-nil, limits characters to compose.

Optional 3rd arg OBJECT, if non-nil, is a string that contains the
text to compose.  In that case, POS and LIMIT index into the string.

This function is the default value of `compose-chars-after-function'.

(fn POS &optional LIMIT OBJECT)
(defalias 'compose-chars-after #[769 "fH\301 \205
;?\205\302\303 \"\304\211\211\204);\203&G\202'd\262\203\250\203\250\305 \306\307\"\216\212\203\246\310@!\203O\304\262@\262\202Y@@\262@A\262b\210\203\217;\203q\311\"\312=\202t\313!\203\234\312\225X\203\234	\312\225\n\304%\262\202\234		\n\304%\262
\2039\304\262\2029*\210\207" [composition-function-table display-multi-font-p font-at selected-window nil match-data make-closure #[0 "\301\300\302\"\207" [V0 set-match-data evaporate] 3] functionp string-match 0 looking-at] 15 (#$ . 10222)])
#@631 Compose last characters.
The argument is a parameterized event of the form
	(compose-last-chars N COMPONENTS),
where N is the number of characters before point to compose,
COMPONENTS, if non-nil, is the same as the argument to `compose-region'
(which see).  If it is nil, `compose-chars-after' is called,
and that function finds a proper rule to compose the target characters.
This function is intended to be used from input methods.
The global keymap binds special event `compose-last-chars' to this
function.  Input method may generate an event (compose-last-chars N COMPONENTS)
after a sequence of character events.

(fn ARGS)
(defalias 'compose-last-chars #[257 "\211A@\211\247\205&`eZ
Y\205&\3008\203 \301`Z`\3008#\207\302`Z`\"\207" [2 compose-region compose-chars-after] 7 (#$ . 11383) "e"])
(global-set-key [compose-last-chars] 'compose-last-chars)
#@16 

(fn GSTRING)
(defalias 'lgstring-header #[257 "\211\300H\207" [0] 3 (#$ . 12252)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lgstring-header speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@23 

(fn GSTRING HEADER)
(defalias 'lgstring-set-header #[514 "
\300I\207" [0] 5 (#$ . 12484)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lgstring-set-header speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@16 

(fn GSTRING)
(defalias 'lgstring-font #[257 "\211\211\300H\262
\300H\207" [0] 4 (#$ . 12729)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lgstring-font speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@18 

(fn GSTRING I)
(defalias 'lgstring-char #[514 "
\211\300H\262

TH\207" [0] 5 (#$ . 12971)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lgstring-char speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@16 

(fn GSTRING)
(defalias 'lgstring-char-len #[257 "\211\211\300H\262
GS\207" [0] 4 (#$ . 13210)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lgstring-char-len speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@16 

(fn GSTRING)
(defalias 'lgstring-shaped-p #[257 "\211\300H\207" [1] 3 (#$ . 13457)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lgstring-shaped-p speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@19 

(fn GSTRING ID)
(defalias 'lgstring-set-id #[514 "
\300I\207" [1] 5 (#$ . 13693)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lgstring-set-id speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@18 

(fn GSTRING I)
(defalias 'lgstring-glyph #[514 "

\300\\H\207" [2] 5 (#$ . 13926)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lgstring-glyph speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@16 

(fn GSTRING)
(defalias 'lgstring-glyph-len #[257 "\211G\300Z\207" [2] 3 (#$ . 14158)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lgstring-glyph-len speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@24 

(fn GSTRING I GLYPH)
(defalias 'lgstring-set-glyph #[771 "\300\\I\207" [2] 6 (#$ . 14397)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lgstring-set-glyph speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@14 

(fn GLYPH)
(defalias 'lglyph-from #[257 "\211\300H\207" [0] 3 (#$ . 14644)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lglyph-from speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@14 

(fn GLYPH)
(defalias 'lglyph-to #[257 "\211\300H\207" [1] 3 (#$ . 14866)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lglyph-to speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@14 

(fn GLYPH)
(defalias 'lglyph-char #[257 "\211\300H\207" [2] 3 (#$ . 15084)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lglyph-char speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@14 

(fn GLYPH)
(defalias 'lglyph-code #[257 "\211\300H\207" [3] 3 (#$ . 15306)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lglyph-code speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@14 

(fn GLYPH)
(defalias 'lglyph-width #[257 "\211\300H\207" [4] 3 (#$ . 15528)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lglyph-width speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@14 

(fn GLYPH)
(defalias 'lglyph-lbearing #[257 "\211\300H\207" [5] 3 (#$ . 15752)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lglyph-lbearing speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@14 

(fn GLYPH)
(defalias 'lglyph-rbearing #[257 "\211\300H\207" [6] 3 (#$ . 15982)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lglyph-rbearing speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@14 

(fn GLYPH)
(defalias 'lglyph-ascent #[257 "\211\300H\207" [7] 3 (#$ . 16212)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lglyph-ascent speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@14 

(fn GLYPH)
(defalias 'lglyph-descent #[257 "\211\300H\207" [8] 3 (#$ . 16438)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lglyph-descent speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@14 

(fn GLYPH)
(defalias 'lglyph-adjustment #[257 "\211\300H\207" [9] 3 (#$ . 16666)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lglyph-adjustment speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@22 

(fn GLYPH FROM TO)
(defalias 'lglyph-set-from-to #[771 "\300I\210\301I\207" [0 1] 6 (#$ . 16900)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lglyph-set-from-to speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@19 

(fn GLYPH CHAR)
(defalias 'lglyph-set-char #[514 "
\300I\207" [2] 5 (#$ . 17155)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lglyph-set-char speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@19 

(fn GLYPH CODE)
(defalias 'lglyph-set-code #[514 "
\300I\207" [3] 5 (#$ . 17388)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lglyph-set-code speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@20 

(fn GLYPH WIDTH)
(defalias 'lglyph-set-width #[514 "
\300I\207" [4] 5 (#$ . 17621)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lglyph-set-width speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@42 

(fn GLYPH &optional XOFF YOFF WADJUST)
(defalias 'lglyph-set-adjustment #[1025 "\300\301\206\302\206
\302\206\302#I\207" [9 vector 0] 10 (#$ . 17857)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lglyph-set-adjustment speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@14 

(fn GLYPH)
(defalias 'lglyph-copy #[257 "\300
!\207" [copy-sequence] 3 (#$ . 18173)])
(byte-code "\300\301\302\303#\304\301\305\306#\207" [function-put lglyph-copy speed -1 put byte-optimizer byte-compile-inline-expand] 5)
#@26 

(fn GSTRING IDX GLYPH)
(defalias 'lgstring-insert-glyph #[771 "\211G\300Z\262
\211W\203!


\300\\H\266\202\203!\211T\262
\202\211U\2032\301\302!\"\262\202E\211TW\203E
T\303\300\\I\266\211V\203g
S

\300\\H\266\202\300\\I\266\211S\262
\202E
\300\\I\266\207" [2 vconcat vector nil] 12 (#$ . 18404)])
#@20 

(fn GSTRING IDX)
(defalias 'lgstring-remove-glyph #[514 "\300!\262
\301
\302I\266
G
\303\\\262

W\203)SHI\210
T\262\202
S\301I\266
\207" [copy-sequence nil 1 3] 7 (#$ . 18748)])
#@24 

(fn GSTRING FROM TO)
(defalias 'compose-glyph-string #[771 "

\300\\H\266\202\301\211\211\302H\262
\262S

\300\\H\266\202\211\303H\262
\262
\302I\210\303I\266T\262W\203\220

\300\\H\266\202\211\262\203\220\302I\210\303I\266\211\304H\262
\302X\203h\302\202o\211\305H\262
[
\302\211\306\307\206{\302\206\200\302\206\205\302#I\266T\262\2026\207" [2 nil 0 1 6 4 9 vector] 17 (#$ . 18949)])
#@38 

(fn GSTRING FROM TO &optional GAP)
(defalias 'compose-glyph-string-relative #[1027 "\211\211\300H\262
\300H\262


\301\\H\266\202\302\211\211\211\203,\303\304\305\"_!\262\202/\300\262\211\300H\262
\262	S

\301\\H\266\202\211\306H\262
\262\211\307H\262
\262\211\310H\262
\262
\300I\210\306I\266T\262	W\203(
		

\301\\H\266\202\262\300I\210\306I\266\211\307H\262
\211\310H\262
\302\211\211\311H\262
\300X\203\256\300\202\266\211\312H\262
[\262\300V\203\344\300W\203\336\313\300
$\262
\314\f$\262\202\367\300\262
\202\367\\\\\262
\314\f$\262
\300U\203
\211\300U\204
\300\315\316\206
\300\206
\300\206
\300#I\266\266T\262	\202m	\207" [0 2 nil floor font-get :size 1 7 8 6 4 - + 9 vector] 24 (#$ . 19391)])
#@482 Compose glyph-string GSTRING under bidi DIRECTION for graphic display.
DIRECTION is either L2R or R2L, or nil if unknown.
Combining characters are composed with the preceding base
character.  If the preceding character is not a base character,
each combining character is composed as a spacing character by
a padding space before and/or after the character.

All non-spacing characters have this function in
`composition-function-table' unless overwritten.

(fn GSTRING DIRECTION)
(defalias 'compose-gstring-for-graphic #[514 "
\211\211\300H\262
GS\262
\211G\301Z\262
\300

\301\\H\266\202\302U\203p\211\211\303H\262

\211\304H\262
\211\305H\262
\306\300W\203A[\262
\202G\300\262
\300\262W\203P
\262
\300Z\307\310\206_\300\206d\300\206i\300#I\266\207\311\300
\211\300H\262

TH\266\202\312\"\313>\203\207\306\207\314\"\211\203\243\211\300

\301\\H\266\202\211\302H\262
\300V\203\243\207\306
\302I\266
\211\305H\262
\211\315H\262
\211\316H\262
\211\304H\262
\211\303H\262
\211\\\301\245\317\320
\211\211\300H\262
\300H\262
\321\"\322_!\211\300U\203\352\302\262
\300\211\fW\203\371



\301\\H\266\202\262\n\211\300V\203\362\311\n\211\301H\262
\323\"\n\211\303H\262
\211\304H\262
\f\211\315H\262

\211\316H\262
\\\301\245\306\211\203k\324Y\203k\325X\203k\300\262\300\262
\324U\203j
Z\262\300V\203a
\300\202e

\\\262
\2024\326U\203\223
\300V\203z
\300\262\nZ\262\300V\203\212
\300\202\216

\\\262
\2024\327U\203\274
\300V\203\243
\300\262\fZ\262\300V\203\263
\300\202\267

\\\262
\2024\330U\203\315
Z\262\2024\331U\203\336
\fZ\262\2024\332U\203\377
Z\262\300Y\203\365
\300\202\372
[Z\262
\2024\333U\203 \nZ\262\300Y\203\300\202[Z\262
\2024\334U\203A\fZ\262\300Y\2037\300\202<[Z\262
\2024\335U\203dZ\262\300V\203X\300\202_
\\\n\\\262
\2024\336U\203\207\nZ\262\300V\203{\300\202\202
\\\n\\\262
\2024\337U\203\252\fZ\262\300V\203\236\300\202\245
\\\n\\\262
\2024\340U\203\273Z\262\2024\341U\203\314\fZ\262\2024\342U\203\360Z\262\300Y\203\343\300\202\353[Z\nZ\262
\2024\343U\203\nZ\262\300Y\203\300\202[Z\nZ\262
\2024\344U\2034\fZ\262\300Y\203+\300\2022\\\nZ\262
Z\306\307\310\206D\300\206I\300\206N\300#I\266\\\262\\\262
Z\262
\\\262\202\334\300U\203\334\311\211\301H\262
\312\"\345=\203\334ZZ\301\245
\\
\\[\nZZ\300\307\310\206\247\300\206\254\300\206\261\300#I\266\300

\301\\H\266\202\262\300\307\310\206\316\300\206\323\300\206\330\300#I\266	W\203\346\262
W\203\360\262\266\211T\262
\202\353\266\300\211W\203)


\301\\H\266\202\211\262\203)\300S\300I\210\302I\266\211T\262
\202\374\210\207" [0 2 1 5 6 4 nil 9 vector get-char-code-property general-category (Mn Mc Me Zl Zp Cc Cf Cs) font-shape-gstring 7 8 round font-get :size 0.1 canonical-combining-class 200 240 202 204 208 210 212 214 216 218 220 222 224 226 228 230 232 Me] 36 (#$ . 20207)])
#@26 

(fn GSTRING DIRECTION)
(defalias 'compose-gstring-for-dotted-circle #[514 "
\300

\301\\H\266\202\302

\301\\H\266\202\300

\301\\H\266\202\262\302

\301\\H\266\202\262

\211\303H\262

\211\304H\262
\211\305H\262
Z\211\300H\262
\211\302H\262
\300\211\211\211\306H\262
\300W\203{\211\307H\262
\211\306H\262
[V\203{\211\306H\262
[	\211\307H\262
Z\262\211\303H\262
\300V\203\221\211\304H\262
[\262W\203\257[Z\211\305H\262
[Z\262Z\262
\300U\203\315
\300U\203\315\211\300U\203\315\211\303H\262
\300U\204\350\310\311\206\332\300\206\337\300\206\344\300#I\266\300I\210\302I\266\300I\210\302I\266\211G\301Z\262
\301V\203
\301\312\301\\I\266\207" [0 2 1 4 6 5 8 7 9 vector nil] 21 (#$ . 23312)])
(byte-code "\203?\302\303\304\305!\306B\"\307B\310\311\312\"\"\266	\313\302\303\304\314!\315B\"CI\210\316	\317\303\304\320!\321\322#\303\304\323!\324\322#\303\304\325!\326\322#E#\210\302\207" [unicode-category-table composition-function-table apply vector purecopy "\\c.\\c^+" (1 compose-gstring-for-graphic) ([nil 0 compose-gstring-for-graphic]) map-char-table make-closure #[514 "\211\302>\205\303	\300#\207" [V0 composition-function-table (Mn Mc Me) set-char-table-range] 6 "\n\n(fn KEY VAL)"] 9676 ".\\c^" (0 compose-gstring-for-dotted-circle) set-char-table-range 8260 "[1-9][0-9][0-9]⁄[0-9]+" 3 font-shape-gstring "[1-9][0-9]⁄[0-9]+" 2 "[1-9]⁄[0-9]+" 1] 9)
#@295 Compose glyph-string GSTRING for terminal display.
Non-spacing characters are composed with the preceding base
character.  If the preceding character is not a base character,
each non-spacing character is composed as a spacing character by
prepending a space before it.

(fn GSTRING DIRECTION)
(defalias 'compose-gstring-for-terminal #[514 "
\211G\300Z\262
\301\211\211\301H\262
\301H\262
\302W\203U


\300\\H\266\202\211\262\203U
\303
\211\300H\262
\"\204u\301\262W\203

\300\\H\266\202\211\262\203\211\211\304H\262
\305W\203`\211\305
\304I\266\211\211\301I\210\305I\266T\262\2028\211\211\304H\262
\301U\203\334\306
\211\300H\262
\307\"\310=\203\245\211\311
\300I\266\211\305
\304I\266T\262\202\312\313
!\262
#\262\211G\300Z\262
\262

\300\\H\266\202\262
\211\311
\300I\266\211\305
\304I\266\300\262\202\211\211\301H\262

\211\305H\262
T\211W\203(



\300\\H\266\202\211\262\203(
\303\211\300H\262
\"\203(
\211\304H\262
\301U\203(
\211\305H\262
\262\211T\262
\202\352
W\203P


\300\\H\266\202\262\301I\210\305I\266T\262\202(
\266\202\207" [2 0 nil char-charset 4 1 get-char-code-property general-category Cf 32 lgstring-insert-glyph copy-sequence] 15 (#$ . 24770)])
#@199 Compose glyph-string GSTRING for graphic display.
GSTRING must have two glyphs; the first is a glyph for a han character,
and the second is a glyph for a variation selector.

(fn GSTRING DIRECTION)
(defalias 'compose-gstring-for-variation-glyph #[514 "
\211\211\300H\262
\300H\262
\300
\211\300H\262

TH\266\202\301
\211\300H\262

TH\266\202\302\"\300

\303\\H\266\202\301

\303\\H\266\202\3042\214\211\205\211\211@\211@U\203\202
A
\305I\266\211\211\300H\262
\211\301H\262
\300I\210\301I\266	\301\306\303\\I\266\307\304\"\210
A\266\202\202A\262
0\207" [0 1 font-variation-glyphs 2 tag 3 nil throw] 16 (#$ . 26033)])
(byte-code "\301\302\303#\210\302\304#\210\207" [composition-function-table ([".." 1 compose-gstring-for-variation-glyph]) set-char-table-range (65024 . 65038) (917760 . 917999)] 5)
#@757 Compose the characters at FROM by FUNC.
FUNC is called with two arguments: GSTRING, which is built for
characters in the region FROM (inclusive) and TO (exclusive);
and DIRECTION, which is the bidi directionality of the characters.

If the character are composed on a graphic display, FONT-OBJECT
is a font to use.  Otherwise, FONT-OBJECT is nil, and the function
`compose-gstring-for-terminal' is used instead of FUNC.

If STRING is non-nil, it is a string, and FROM and TO are indices
into the string.  In that case, compose characters in the string.

The value is a gstring containing information for shaping the characters.

This function is the default value of `auto-composition-function' (which see).

(fn FUNC FROM TO FONT-OBJECT STRING DIRECTION)
(defalias 'auto-compose-chars #[1542 "\300$\211\211\301H\262
\203\207\302\303\"\204\304\262
\"\207" [composition-get-gstring 1 fontp font-object compose-gstring-for-terminal] 11 (#$ . 26873)])
(byte-code "\300\301\302\303#\210\304\305!\210\306\305\307\"\207" [put auto-composition-mode permanent-local t make-variable-buffer-local auto-composition-function set-default auto-compose-chars] 4)
#@853 Toggle Auto Composition mode.

This is a minor mode.  If called interactively, toggle the
`Auto-Composition mode' mode.  If the prefix argument is positive,
enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `auto-composition-mode'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

When Auto Composition mode is enabled, text characters are
automatically composed by functions registered in
`composition-function-table'.

You can use `global-auto-composition-mode' to turn on
Auto Composition mode in all buffers (this is the default).

(fn &optional ARG)
(defalias 'auto-composition-mode #[256 "\302 
\303=\203
?\202
\247\203
\304W\203\305\202\306\307\301!\2031\310\300	\"\2031\300	B\311\312\203;\313\202<\314\"\210\315\316!\203^\302 \203P\211\302 \232\203^\317\320\203Z\321\202[\322\323#\210\210\324 \210\207" [auto-composition-mode local-minor-modes current-message toggle 1 nil t boundp delq run-hooks auto-composition-mode-hook auto-composition-mode-on-hook auto-composition-mode-off-hook called-interactively-p any message "Auto-Composition mode %sabled%s" "en" "dis" " in current buffer" force-mode-line-update] 6 (#$ . 28041) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar auto-composition-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\312!\207" [auto-composition-mode-map auto-composition-mode-hook variable-documentation put "Hook run after entering or leaving `auto-composition-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode auto-composition-mode boundp make-variable-buffer-local] 6)
#@716 Toggle Auto Composition mode in all buffers.

This is a minor mode.  If called interactively, toggle the `Global
Auto-Composition mode' mode.  If the prefix argument is positive,
enable the mode, and if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='auto-composition-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

For more information on Auto Composition mode, see
`auto-composition-mode'.

(fn &optional ARG)
(defalias 'global-auto-composition-mode #[256 "\301 \302\303\304=\203\305\303!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\313\"\305\303!\2038\313B\314\315\305\303!\203D\316\202E\317\"\210\320\321!\203i\301 \203Y\211\301 \232\203i\322\323\305\303!\203e\324\202f\325\326#\210\210\327 \210\305\303!\207" [global-minor-modes current-message set-default auto-composition-mode toggle default-value 1 nil t boundp delq global-auto-composition-mode run-hooks global-auto-composition-mode-hook global-auto-composition-mode-on-hook global-auto-composition-mode-off-hook called-interactively-p any message "Global Auto-Composition mode %sabled%s" "en" "dis" "" force-mode-line-update] 6 (#$ . 30170) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar global-auto-composition-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\210\314\315\312\"\210\316\317!\207" [global-auto-composition-mode-map global-auto-composition-mode-hook variable-documentation put "Hook run after entering or leaving `global-auto-composition-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode auto-composition-mode boundp defalias toggle-auto-composition provide composite] 6)