branch: externals/caml
commit 9b77f6d874381bfdcd74c87651ff5076e382cad3
Author: Jacques Garrigue <garrigue at math.nagoya-u.ac.jp>
Commit: Jacques Garrigue <garrigue at math.nagoya-u.ac.jp>
spurious newline
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4697
f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
inf-caml.el | 13 ++++++-------
1 file changed, 6 insertions(+), 7 deletions(-)
diff --git a/inf-caml.el b/inf-caml.el
index 357d1f5..b3f7685 100644
--- a/inf-caml.el
+++ b/inf-caml.el
@@ -163,13 +163,14 @@ Input and output via buffer `*inferior-caml*'."
(interactive "r")
(save-excursion (caml-run-process-if-needed))
(save-excursion
- (comint-send-region inferior-caml-buffer-name start end)
(goto-char end)
(caml-skip-comments-backward)
+ (comint-send-region inferior-caml-buffer-name start (point))
;; normally, ";;" are part of the region
- (if (not (and (>= (point) 2)
- (prog2 (backward-char 2) (looking-at ";;"))))
- (comint-send-string inferior-caml-buffer-name ";;\n"))
+ (if (and (>= (point) 2)
+ (prog2 (backward-char 2) (looking-at ";;")))
+ (comint-send-string inferior-caml-buffer-name "\n")
+ (comint-send-string inferior-caml-buffer-name ";;\n"))
;; the user may not want to see the output buffer
(if caml-display-when-eval
(display-buffer inferior-caml-buffer-name t))))
@@ -205,9 +206,7 @@ should lies."
(while (> arg 0)
(setq arg (- arg 1))
(setq beg (caml-find-phrase min max))
- (caml-eval-region beg (point))
- (comint-send-string inferior-caml-buffer-name "\n")
- )
+ (caml-eval-region beg (point)))
beg))
(defvar caml-previous-output nil
