 (defun emacspeak-maths-parse-output ()
   "Parse and return one complete chunk of output."
    ;;; return first sexp and move point
-    (read (current-buffer)))
+  (read (current-buffer)))
 
 (defun emacspeak-maths-process-filter (proc string)
-  "Handle process output from Node."
+  "Handle process output from Node.
+All complete chunks of output are consumed. Partial output is left for next run."
+  (declare (special emacspeak-maths))
   (with-current-buffer (process-buffer proc)
     (let ((moving (= (point) (process-mark proc))))
       (save-excursion

        (goto-char (process-mark proc))
        (insert string)
        (set-marker (process-mark proc) (point)))
;;; Consume process output 
      (save-excursion
        (goto-char (point-min))
        (flush-lines "^ *$")

;;; end:

;;}}}
