Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

spurious newline 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4697 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Jacques Garrigue 2002-04-18 08:32:23 +00:00
parent a5a0ceb0ee
commit 87f8871ef6
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
emacs/inf-caml.el
View File

@ -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