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

fix utop-process-output 

Ignore-this: b28611f674ea8d0425f1e645508d71a2

darcs-hash:20110728145634-c41ad-35a498f358ef63497f032295366f17c4fd8b4a4f
This commit is contained in:
Jeremie Dimino 2011-07-28 16:56:34 +02:00
parent 7c645d9c69
commit f01d238cd4
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/utop.el
View File

@ -236,6 +236,7 @@ non-sticky mode."
(defun utop-process-output (process output) (defun utop-process-output (process output)
"Process the output of utop" "Process the output of utop"
(with-current-buffer utop-buffer-name
;; Concatenate the output with the output not yet processed ;; Concatenate the output with the output not yet processed
(setq utop-output (concat utop-output output)) (setq utop-output (concat utop-output output))
;; Split lines. Each line contains exactly one command ;; Split lines. Each line contains exactly one command
@ -248,7 +249,7 @@ non-sticky mode."
;; When the list contains only one element, then this is either ;; When the list contains only one element, then this is either
;; the end of commands, either an unterminated one, so we save ;; the end of commands, either an unterminated one, so we save
;; it for later ;; it for later
(setq utop-output (car lines)))) (setq utop-output (car lines)))))
;; +-----------------------------------------------------------------+ ;; +-----------------------------------------------------------------+
;; | Sending data to the utop sub-process | ;; | Sending data to the utop sub-process |