utop arguments is taken via utop-query-arguments

Ignore-this: 8d0bb0b0ca55ace93e0f5a239b09cddd

darcs-hash:20120303224903-33bd9-ce492fbcb62a1efcf72c82cb032f7760aaf19e53
This commit is contained in:
wojciech.meyer 2012-03-03 23:49:03 +01:00
parent ce6525ad79
commit 0db2c4d588
1 changed files with 7 additions and 7 deletions

View File

@ -655,13 +655,13 @@ byte-compiling."
(t (t
;; The buffer does not exist, read arguments before creating ;; The buffer does not exist, read arguments before creating
;; it so the user can cancel starting utop ;; it so the user can cancel starting utop
(let ((arguments (utop-get-arguments))) (utop-query-arguments)
;; Create the buffer ;; Create the buffer
(setq buf (get-buffer-create utop-buffer-name)) (setq buf (get-buffer-create utop-buffer-name))
;; Make it appear ;; Make it appear
(display-buffer buf) (display-buffer buf)
;; Put it in utop mode ;; Put it in utop mode
(with-current-buffer buf (utop-mode)))))))) (with-current-buffer buf (utop-mode)))))))
(defun utop-eval (start end) (defun utop-eval (start end)
"Eval the given region in utop." "Eval the given region in utop."