;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'inline) #@107 Put face on each position in INDICES of STR. Sign: (-> (Listof Long) Sym Str Str) (fn INDICES FACE STR) (defalias 'fuz-highlighter #[771 "\300\301\302\"r\211q\210\303\304\"\216\305\306\307#c\210eb\210\211\2031\211@\310T\311\\\312D#\210A\266\202\202\210\313 *\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] propertize read-only nil add-text-properties 2 face buffer-string] 11 (#$ . 106)]) #@99 Sort LIST with COMP-FN, transfrom elem in LIST with KEY before comparison. (fn LIST COMP-FN KEY) (defalias 'fuz-sort-with-key! #[771 "\300\301\302#\"\207" [sort make-closure #[514 "\300\301!\301!\"\207" [V0 V1] 6 "\n\n(fn E1 E2)"]] 9 (#$ . 585)]) (byte-code "\300\301\302\303#\300\207" [function-put fuz-sort-with-key! compiler-macro fuz-sort-with-key!--inliner] 4) #@38 (fn INLINE--FORM LIST COMP-FN KEY) (defalias 'fuz-sort-with-key!--inliner #[1028 "\3002a\211\301!\203\211\202\302\303!\301!\203\211\202 \302\304!\305\306\307\310D\311\311 \307E\311\n\310EFEE=\203B\211\266\203\202K\312DC\"\266\203=\203W\211\266\203\202`\312DC\"\266\2030\207" [inline--just-use macroexp-copyable-p make-symbol "key" "comp-fn" sort lambda e1 e2 funcall macroexp-let*] 18 (#$ . 963)]) #@299 Memoize the FN. Sign: (All (I O) (->* ((-> I O)) ((U 'eq 'eql 'equal) Int) (-> I O))) TEST can be one of `eq', `eql', `equal', which used as cache hash's test-fn, if wasn't provided, use `equal'. If SIZE was provided, make the hash-table that with initial size SIZE. (fn FN &optional TEST SIZE) (defalias 'fuz-memo-function #[769 "\300\206\301\205 \302DBB\303\304\"\305\306!\307\310$\207" [:test equal :size apply make-hash-table make-symbol "not-found" make-closure #[257 "\303\301\302#\211\302=\203\304\300!\301#\207\207" [V0 V1 V2 gethash puthash] 6 "\n\n(fn INPUT)"]] 11 (#$ . 1400)]) (provide 'fuz-extra)