;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301\302\303#\210\300\304!\207" [require hy-mode nil t inf-lisp] 4) (defalias 'lispy--hy-proc #[0 "\300\301!\203\n\302\301!\207\303\304\301\211\"!\207" [process-live-p "hy" get-process get-buffer-process make-comint] 4]) #@65 Collect output of COMMAND without changing point. (fn COMMAND) (defalias 'lispy--comint-eval #[257 "\302\211\211\211\303\304 !r\211q\210\305\211\306 \210`\307 {\262\310\311\312#\262`\307 |\210`\262\313\314p!\"\210\212\305b\210\315\316\302\305#*\204K\317\314!!\210db\210\2020db\210\320\321\322 \"\203[\323\224Sb\210\324`\"\262d|\210db\210\325\314p!\326\"\210c\210+\207" [inhibit-read-only inhibit-field-text-motion nil process-buffer lispy--hy-proc t beginning-of-line line-end-position replace-regexp-in-string "=> " "" comint-simple-send get-buffer-process re-search-forward "^[. ]*=> \\s-*$" accept-process-output looking-back "^[. ]*=> *" line-beginning-position 0 buffer-substring-no-properties comint-send-string "\n"] 10 (#$ . 325)]) #@32 Eval STR as Hy code. (fn STR) (defalias 'lispy--eval-hy #[257 "\300!\211\301\235\203 \302\207\207" [lispy--comint-eval ("" "\n") "(ok)"] 4 (#$ . 1091)]) (provide 'le-hy)