%PDF- %PDF-
Direktori : /usr/local/share/emacs/27.2/lisp/ |
Current File : //usr/local/share/emacs/27.2/lisp/char-fold.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" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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\321\322\323\"\324\"\325\326%\"\266\316\317\320\327\322\323#\330\"\331\332%\"\210\333\300!\203F \206G \211\203f \211@\211@A\334\nH\"I\266A\266\202\202G \210\333\302!\203q \n\206r \211\203\250 \211@\211@AH\203\237 \211\211\203\236 \211@\335\fH\"I\210A\266\202\202\204 \210\266A\266\202\202r \210\333\304!\203\263 \f\204\267 \203\361 \336\337\340\"\316\317\320\341\322\323!\342\"\343\344%\"\210\316\317\320\345\322\323\"\346\"\347\344%\"\210\350\317\320\351\322\323 !\352\"\331\353%\"\266\316\317\320\354\322\323!\355\"\325\344%\"\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-byte-code 514 ":\205 \301@\300#\207" vconcat vector #1=[] 6 "\n\n(fn CHAR V)" "\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" [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 "\301\302\303\304\"\300#\210\211\211\205\"