haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix utop-eval-input with allow-incomplete=t when the point is before the prompt 

Ignore-this: a3dc2b3421588911f2770105081a8355

darcs-hash:20120321231655-c41ad-166ae6880230aa1f4d4eb616d221622523081c99
This commit is contained in:
Jeremie Dimino 2012-03-22 00:16:55 +01:00
parent 11cf629c46
commit 0fbf0ff84b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/top/utop.el
View File

@ -600,7 +600,7 @@ If ADD-TO-HISTORY is t then the input will be added to history."
;; If the point is before the prompt, insert the newline ;; If the point is before the prompt, insert the newline
;; character at the end ;; character at the end
(when (< utop-pending-position 0) (when (< utop-pending-position 0)
(setq utop-pending-position (- (point) utop-prompt-max))))) (setq utop-pending-position (- (point-max) utop-prompt-max)))))
;; We are now waiting for ocaml ;; We are now waiting for ocaml
(utop-set-state 'wait) (utop-set-state 'wait)
(utop-send-data (utop-send-data