[nongnu] externals/caml 9b77f6d 054/197: spurious newline

[Stefan Monnier]

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