 
 (defun emacspeak-maths-handle-exp (contents)
   "Handle top-level exp returned from Maths Server."
-  (mapc #'emacspeak-maths-parse contents))
+  (declare (special emacspeak-maths))
+  (with-current-buffer (emacspeak-maths-output emacspeak-maths)
+    (goto-char (point-max))
+    (let ((inhibit-read-only  t)
+          (start (point))
+          (end nil))
+      (mapc #'emacspeak-maths-parse contents)
+      (setq end (point))
+      (insert "\f")
+      (goto-char start)
+      (display-buffer (emacspeak-maths-output emacspeak-maths))
+      (emacspeak-speak-region start end))))
 
 (defun emacspeak-maths-acss (acss-alist)
   "Return ACSS voice corresponding to acss-alist."

;;{{{ Displaying Output:

;;}}}
(provide 'emacspeak-maths)
;;{{{ end of file


    (setq client (open-network-stream "Client-Math" "*Client-Math*" "localhost" 5000))
    (setf emacspeak-maths
          (make-emacspeak-maths
           :output (emacspeak-maths-setup-output)
           :server-buffer  server
           :server-process (get-buffer-process server)
           :client-process client
