diff options
author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2002-04-18 08:32:23 +0000 |
---|---|---|
committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2002-04-18 08:32:23 +0000 |
commit | 87f8871ef6cc96b268b7ca4dbe594691f26bfb32 (patch) | |
tree | 7a732e14bbda6a6294e310ca56d05ee924cbb438 /emacs | |
parent | a5a0ceb0eec8c39b6d821568a1b606edfd74f630 (diff) | |
download | ocaml-87f8871ef6cc96b268b7ca4dbe594691f26bfb32.tar.gz |
spurious newline
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4697 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'emacs')
-rw-r--r-- | emacs/inf-caml.el | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/emacs/inf-caml.el b/emacs/inf-caml.el index 357d1f534d..b3f768578e 100644 --- a/emacs/inf-caml.el +++ b/emacs/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 |