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



(byte-code "\300\301\302\"\210\303\304\305\306\307\310\311\312\313\314\304&\n\210\303\315\316\306\307\310\317\312\320\314\315&\n\210\321\322\315\"\210\300\323\324\"\210\300\325\326\"\210\327\330\331\332\333DD\334\335\336\337\340\341\342\343\344&\207" [set-language-info-alist "IPA" ((charset ipa) (coding-priority utf-8) (coding-system utf-8) (input-method . "ipa") (nonascii-translation . ipa) (documentation . "IPA is International Phonetic Alphabet for English, French, German\nand Italian.")) define-coding-system iso-8859-6 "ISO-8859-6 based encoding (MIME:ISO-8859-6)." :coding-type charset :mnemonic 54 :charset-list (iso-8859-6) :mime-charset windows-1256 "windows-1256 (Arabic) encoding (MIME: WINDOWS-1256)" 65 (windows-1256) define-coding-system-alias cp1256 "Arabic" ((charset unicode) (coding-system utf-8 iso-8859-6 windows-1256) (coding-priority utf-8 iso-8859-6 windows-1256) (input-method . "arabic") (sample-text . "Arabic	السّلام عليكم") (documentation . "Bidirectional editing is supported.")) "Persian" ((charset unicode) (coding-system utf-8 iso-8859-6 windows-1256) (coding-priority utf-8 iso-8859-6 windows-1256) (input-method . "farsi-transliterate-banan") (sample-text . "Persian	فارسی") (documentation . "Bidirectional editing is supported.")) custom-declare-variable arabic-shaper-ZWNJ-handling funcall function #[0 "\300\207" [nil] 1 ""] "How to handle ZWMJ in Arabic text rendering.\nThis variable controls the way to handle a glyph for ZWNJ\nreturned by the underling shaping engine.\n\nThe default value is nil, which means that the ZWNJ glyph is\ndisplayed as is.\n\nIf the value is `absorb', ZWNJ is absorbed into the previous\ngrapheme cluster, and not displayed.\n\nIf the value is `as-space', the glyph is displayed by a\nthin (i.e. 1-dot width) space." :group mule :version "26.1" :type (choice (const :tag "default" nil) (const :tag "as space" as-space) (const :tag "absorb" absorb)) :set #[514 "\300\"\210\301 \207" [set-default clear-composition-cache] 5 "\n\n(fn SYM VAL)"]] 12)
(defvar arabic-shape-log nil)
#@26 

(fn GSTRING DIRECTION)
(defalias 'arabic-shape-gstring #[514 "\302\"\262\3031\344\205\337
\211\211\304H\262
\304H\262
\305\211G\306Z\262
\307W\203\321

\306\\H\266\202\211\211\306H\262
\310=\203\311\311\267\210\202\312\211\211\312H\262

\211\313H\262
Z\304V\203v\314\304\305\315$\304H\211\203u

\316H
\316I\266

\317H
\317I\266\210\211\304\211\305\320\321\206\202\304\206\207\304\206\214\304#I\266\322\266\202\202\312S

\306\\H\266\202\211
\211\304H\262
\211\305H\262
\304I\210\305I\266\323\"\262S\262\210\322\262\210T\262\202\"\211\205\335\307
\305I\266\202\266\2040\210\202\353\211	B\211\266
\207" [arabic-shaper-ZWNJ-handling arabic-shape-log font-shape-gstring (error) 0 1 2 nil 8204 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (as-space 67 absorb 150)) 6 5 font-get-glyphs " " 3 4 9 vector t lgstring-remove-glyph] 17 (#$ . 2155)])
(byte-code "\301\302\303\304\305\306#\303\307\310\306#D#\207" [composition-function-table set-char-table-range (1536 . 1871) vector "[‌‍][؀-ݏ‌‍]+" 1 arabic-shape-gstring "[؀-ݏ‌‍]+" 0] 8)
#@26 

(fn GSTRING DIRECTION)
(defalias 'egyptian-shape-grouping #[514 "
\300
\211\300H\262

TH\266\202\301U\205\302
\211\211\300H\262
GS\262
\302\211\303W\203Y
\300V\203Y
\211\300H\262

TH\266\202\262
\211\301U\203H
T\262\202R\211\304U\203R
S\262T\262\202 
\300U\205\300\305T\303\"\305\306\\\303\"
\300	\211\211\300H\262
\300H\262
I\210\300\211W\203\260
T\n
\211\300H\262

TH\266\202I\210

\n

\306\\H\266\202\306\\I\266\211T\262
\202{\210\211
\300I\266\307
\"\266\202\266\204\207" [0 78903 1 nil 78904 make-vector 2 font-shape-gstring] 16 (#$ . 3302)])
(byte-code "\301\302\303\304\305\306#C#\210\301\307\303\310\311\312#C#\210\301\313\303\314\311\306#C#\210\315\316!\207" [composition-function-table set-char-table-range (78896 . 78902) vector "[𓀀-𓐯][𓐰-𓐶][𓀀-𓐯]" 1 font-shape-gstring 78903 "𓐷[𓀀-𓐿]+" 0 egyptian-shape-grouping (77824 . 78894) "[𓀀-𓐮]+" provide misc-lang] 7)