;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310#\311#\207" [require eval-in-repl sml-mode defalias eir-send-to-sml apply-partially eir-send-to-repl #[0 "\300\301!\207" [switch-to-buffer-other-window "*sml*"] 2] comint-send-input "Send expression to *sml* and have it evaluated."] 6) #@31 eval-in-repl for Standard ML. (defalias 'eir-eval-in-sml #[0 "`\303\304\305\306#\210\203 \203\307\310`\311 \"!\207\312 \210\313`!\210\314\210`\311 \232\2043\307\310`\311 \"!\210\2025\314\n\203<\315 \207\211b\207" [transient-mark-mode mark-active eir-jump-after-eval eir-repl-start "\\*sml\\*" sml-run t eir-send-to-sml buffer-substring-no-properties mark beginning-of-line set-mark nil eir-next-code-line] 5 (#$ . 385) nil]) #@50 Send a semicolon to *sml* and have it evaluated. (defalias 'eir-send-to-sml-semicolon #[0 "\300\301!\207" [eir-send-to-sml ";"] 2 (#$ . 826) nil]) (provide 'eval-in-repl-sml)