08/05/20 11:01:38 yyKbwS8V0
>>736
構文解析しない超手抜き版
(defun ocaml-eval-phrase ()
(interactive)
(save-excursion
(let ((start (progn (scan-buffer "^\\w" :regexp t :reverse t) (point)))
(end (and (scan-buffer "^\\w" :regexp t :no-dup t) (point))))
(ocaml-send (buffer-substring start (or end (point-max)))))))