| Server IP : 217.160.0.212 / Your IP : 216.73.216.15 Web Server : Apache System : Linux www 6.18.52-i1-ampere #1203 SMP Mon Sep 14 18:29:59 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/ |
Upload File : |
;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (put 'char-fold-table 'char-table-extra-slots 1) (defconst char-fold--default-include '((34 """ "“" "”" "”" "„" "⹂" "〞" "‟" "‟" "❞" "❝" "❠" "“" "„" "〝" "〟" "🙷" "🙶" "🙸" "«" "»") (39 "❟" "❛" "❜" "‘" "’" "‚" "‛" "‚" "" "❮" "❯" "‹" "›") (96 "❛" "‘" "‛" "" "❮" "‹") (223 "ss") (953 "ΐ") (965 "ΰ"))) (defconst char-fold--default-exclude '((1080 "й"))) (defconst char-fold--default-symmetric nil) (defvar char-fold--previous (list char-fold--default-include char-fold--default-exclude char-fold--default-symmetric)) (defalias 'char-fold--make-table #[0 "\306\307!\306\307!\310\311!\312\313#\210\314\315\"\316\317\320#\"\266\316\317\321$\"\210\322\300!\2031 \2062 \211\203Q \211@\211@A\323\nH\"I\266A\266\202\2022 \210\322\302!\203\\ \n\206] \211\203\223 \211@\211@AH\203\212 \211\211\203\211 \211@\324\fH\"I\210A\266\202\202o \210\266A\266\202\202] \210\322\304!\203\236 \f\204\242 \203\301 \325\326\327\"\316\317\330\"\"\210\316\317\331#\"\210\332\317\333\"\"\266\316\317\334\"\"\210\207" [char-fold-include char-fold--default-include char-fold-exclude char-fold--default-exclude char-fold-symmetric char-fold--default-symmetric make-char-table char-fold-table unicode-property-table-internal decomposition set-char-table-extra-slot 0 char-table-extra-slot 1 map-char-table make-closure #[514 ":\205 \301@\300#\207" [V0 V1] 6 "\n\n(fn CHAR V)"] #[514 "\211:\205\270 \211A?\205 @=?\205\270 \211@9\203 \211A\262\202, \300\303\304\"\300HBI\210\305\211\300\301$\210\306\203i \307\302@\"\262\211:\203c \211@9\203Q \211A\262@@=\204c \300\301@C$\210\211\262\2027 \266\306\211\211\203\217 \211@\310\311\"\312V\203\203 \313\262\202\210 \211B\262A\266\202\202n \210\205\264 \211\205\264 \300\301$\210A?\205\264 \300@\303\304\"\300@HBI\266\202\262\207" [V0 V1 V2 apply string #[1028 "A\203 @\300\301A\"\302\301!!B@HBI\207@\303!@HBI\207" [apply string regexp-quote char-to-string] 10 "\n\n(fn EQUIV EQUIV-MULTI DECOMP CHAR)"] nil char-table-range get-char-code-property canonical-combining-class 0 t] 10 "\n\n(fn CHAR DECOMP)"] boundp append remove make-hash-table :test eq #[514 "\301\302\303\304\"\300#\210\211\211\205\"