;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require helm helm-utils] 2) #@85 Internal cache variable for unicode characters. Should not be changed by the user. (defvar helm-unicode-names nil (#$ . 156)) #@62 Formats a char pair for helm unicode search. (fn CHAR-PAIR) (defalias 'helm-unicode-format-char-pair #[257 "\211@A\300\301#\207" [format "%s %c"] 7 (#$ . 289)]) #@28 Builds the candidate list. (defalias 'helm-unicode-build-candidates #[0 "\300\301 !\203\302\303\304\301 !\"\202\301 \305\302\306\"\307\"\207" [hash-table-p ucs-names mapcar #[257 "\211\300\301 \"B\207" [gethash ucs-names] 5 "\n\n(fn ELEM)"] hash-table-keys sort helm-unicode-format-char-pair string-lessp] 5 (#$ . 460)]) #@76 Builds the helm Unicode source. Initialize the lookup cache if necessary. (defalias 'helm-unicode-source #[0 "\204\301 \302\303\304\305\306\307\310\311&\207" [helm-unicode-names helm-unicode-build-candidates helm-make-source "unicode-characters" helm-source-sync :candidates :filtered-candidate-transformer #[514 "\300\301\"\207" [sort helm-generic-sort-fn] 5 "\n\n(fn CANDIDATES SOURCE)"] :action (("Insert Character" . helm-unicode-insert-char))] 9 (#$ . 793)]) #@56 Insert CANDIDATE into the main buffer. (fn CANDIDATE) (defalias 'helm-unicode-insert-char #[257 "\211\300\301Oc\207" [-1 nil] 4 (#$ . 1271)]) #@116 Precofigured `helm' for looking up unicode characters by name. With prefix ARG, reinitialize the cache. (fn ARG) (defalias 'helm-unicode #[257 "\211\203\301\302\303\304 \305\306$\207" [helm-unicode-names nil helm :sources helm-unicode-source :buffer "*helm-unicode-search*"] 6 (#$ . 1421) "P"]) (provide 'helm-unicode)