- 737 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/05/20(火) 11:01:38 ID: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)))))))
