%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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\333\334\335\336\337\340\341\342& \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 nil "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 #[(sym val) "\302 \"\210\303 \207" [sym val set-default clear-composition-cache] 3]] 12)
(defvar arabic-shape-log nil)
(defalias 'arabic-shape-gstring #[(gstring direction) "\306 \"\3071\n\205\211\211\310H)\310H)\311\211G\312Z)\313
\fW\203
\211
\312\\H*\211 \211 \312H)\314=\203\371 \n\315\267\202\371 \211 \316H)\211 \317H)Z\310V\203\222 \320\310\311\321$\310H\211 \203\221 \322H \211 \322I\210*\323H \211 \323 I\210*)\310\211\311 \211 \324\325 \206\250 \310 \206\256 \310 \206\264 \310#I\210,\326\202\371
S \211
\312\\H*\211 \211 \211\310H)\211 \311H) ! \"\211 \310\"I\210\311!I\210+\327
\"\fS)\326)
T\211\202' \205\313 #\211\311#I*,0\202 \211 $%B\211%)\210\207" [gstring direction arabic-shaper-ZWNJ-handling modified len i 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 74 absorb 189)) 6 5 font-get-glyphs " " 3 4 9 vector t lgstring-remove-glyph font glyph space-glyph code width wadjust yoff xoff prev to from id err arabic-shape-log] 7])
(byte-code "\301\302\303\304\305\306#\303\307\310\306#D#\210\311\312!\207" [composition-function-table set-char-table-range (1536 . 1871) vector "[-ݏ]+" 0 arabic-shape-gstring "[][-ݏ]+" 1 provide misc-lang] 8)
Zerion Mini Shell 1.0