Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/language/misc-lang.elc

;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\323I\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)