diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2000-04-05 18:30:22 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2000-04-05 18:30:22 +0000 |
| commit | 3f6a493b87dcfb9b49e22313fd5f7c321c3f77d1 (patch) | |
| tree | 49cf875c6ec55e6f56c5e2546a72c501d4da75a1 /emacs/inf-caml.el | |
| parent | 3006772f8506106be60015622d67fa791797490b (diff) | |
| download | ocaml-3f6a493b87dcfb9b49e22313fd5f7c321c3f77d1.tar.gz | |
MacOS: ajout macosunix; portage bigarray et systhreads; tabs
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3042 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'emacs/inf-caml.el')
| -rw-r--r-- | emacs/inf-caml.el | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/emacs/inf-caml.el b/emacs/inf-caml.el index dc84cb37af..0eba00eebc 100644 --- a/emacs/inf-caml.el +++ b/emacs/inf-caml.el @@ -58,24 +58,24 @@ Input and output via buffer `*inferior-caml*'." (if (not (comint-check-proc "*inferior-caml*")) (let ((cmdlist (inferior-caml-args-to-list cmd)) (process-connection-type nil)) - (set-buffer (apply (function make-comint) - "inferior-caml" (car cmdlist) nil (cdr cmdlist))) - (inferior-caml-mode))) + (set-buffer (apply (function make-comint) + "inferior-caml" (car cmdlist) nil (cdr cmdlist))) + (inferior-caml-mode))) (setq caml-shell-active t) (inferior-caml-show-subshell)) (defun inferior-caml-args-to-list (string) (let ((where (string-match "[ \t]" string))) (cond ((null where) (list string)) - ((not (= where 0)) - (cons (substring string 0 where) - (inferior-caml-args-to-list (substring string (+ 1 where) - (length string))))) - (t (let ((pos (string-match "[^ \t]" string))) - (if (null pos) - nil - (inferior-caml-args-to-list (substring string pos - (length string))))))))) + ((not (= where 0)) + (cons (substring string 0 where) + (inferior-caml-args-to-list (substring string (+ 1 where) + (length string))))) + (t (let ((pos (string-match "[^ \t]" string))) + (if (null pos) + nil + (inferior-caml-args-to-list (substring string pos + (length string))))))))) (defun inferior-caml-show-subshell () (interactive) @@ -103,7 +103,7 @@ Input and output via buffer `*inferior-caml*'." "[ \t]*Characters[ \t]+\\([0-9]+\\)-[0-9]+:$")) (string-to-int (match-string 1)))))) (goto-char loc))) - + ;;; inf-caml.el ends here |