;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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!\210\300\302!\210\300\303!\210\300\304!\207" [require cl-lib pyim-scheme pyim-imobjs pyim-dcache] 2) #@239 按照 SCHEME-NAME 对应的输入法方案,从一个 IMOBJ 创建一个列表 codes, 这个列表 包含一个或者多个 code 字符串,这些 code 字符串用于从词库中搜索词条. (fn IMOBJ SCHEME-NAME &optional FIRST-N) (defalias 'pyim-codes-create #[770 "\300\301\"\211\205\302\303\304\"!#\207" [pyim-scheme-get-option :class intern format "pyim-codes-create:%S"] 8 (#$ . 531)]) #@359 从IMOBJ 创建一个 code 列表:codes. 列表 codes 中包含一个或者多个 code 字符串,这些 code 字符串用于从 词库中搜索相关词条。 (pyim-codes-create '(("w" "o" "w" "o") ("" "ai" "" "ai") ("m" "ei" "m" "ei") ("n" "v" "n" "v")) 'quanpin) 结果为: ("wo" "ai" "mei" "nv") (fn IMOBJ SCHEME-NAME &optional FIRST-N) (defalias 'pyim-codes-create:quanpin #[770 "\300\301\302\303\304\305!\306\"\307\310%\"\207" [mapcar make-byte-code 257 "\301\302\303@A@P#\300\247\203\211\304\300G^O\202\211\207" vconcat vector [replace-regexp-in-string "'" "" 0] 6 "\n\n(fn W)"] 10 (#$ . 943)]) #@44 (fn IMOBJ SCHEME-NAME &optional FIRST-N) (defalias 'pyim-codes-create:shuangpin #[770 "\300\301#\207" [pyim-codes-create:quanpin quanpin] 7 (#$ . 1578)]) #@44 (fn IMOBJ SCHEME-NAME &optional FIRST-N) (defalias 'pyim-codes-create:xingma #[770 "\205\300\301\"\302\303\304\305\306\307\"\310\"\311\312%\"\262\207" [pyim-scheme-get-option :code-prefix mapcar make-byte-code 257 "\301\206\302\300\247\203\303\300G^O\202P\207" vconcat vector ["" 0] 6 "\n\n(fn X)"] 12 (#$ . 1742)]) (provide 'pyim-codes)