utop arguments is taken via utop-query-arguments
Ignore-this: 8d0bb0b0ca55ace93e0f5a239b09cddd darcs-hash:20120303224903-33bd9-ce492fbcb62a1efcf72c82cb032f7760aaf19e53
This commit is contained in:
parent
ce6525ad79
commit
0db2c4d588
|
@ -655,13 +655,13 @@ byte-compiling."
|
|||
(t
|
||||
;; The buffer does not exist, read arguments before creating
|
||||
;; it so the user can cancel starting utop
|
||||
(let ((arguments (utop-get-arguments)))
|
||||
(utop-query-arguments)
|
||||
;; Create the buffer
|
||||
(setq buf (get-buffer-create utop-buffer-name))
|
||||
;; Make it appear
|
||||
(display-buffer buf)
|
||||
;; Put it in utop mode
|
||||
(with-current-buffer buf (utop-mode))))))))
|
||||
(with-current-buffer buf (utop-mode)))))))
|
||||
|
||||
(defun utop-eval (start end)
|
||||
"Eval the given region in utop."
|
||||
|
|
Loading…
Reference in New Issue