   (let ((handler (emacspeak-maths-handler-get(car sexp))))
     (cl-assert (fboundp handler) t "%s is not  a function.")
     (mapcar handler (cdr sexp))))
-    
+
 (defun emacspeak-maths-parse-exp (contents)
   "Parse top-level exp returned from Maths Server."
   (mapcar #'emacspeak-maths-parse contents))
-
 
 (defun emacspeak-maths-parse-text (contents)
   "Parse body of annotated text from Maths Server.

;;}}}
;;{{{ Handlers:


;;; All handlers are called with the body of the unit being parsed.


(defun emacspeak-maths-parse (sexp)
  "Top-level parser dispatch.

        (string (cl-second contents))
        (start nil))
    (with-current-buffer  (emacspeak-maths-output emacspeak-maths)
      (setq start (goto-char (point-max)))
      (insert string)
      (put-text-property
       start (point)
       'personality (emacspeak-maths-acss acss)))))

(defun emacspeak-maths-parse-pause (contents)
  "Parse Pause value."
  (declare (special emacspeak-maths))
  (cl-assert (numberp contents) t "%s is not a number. " contents)
  (with-current-buffer  (emacspeak-maths-output emacspeak-maths)
    (goto-char (point-max))
    (insert "\n")
    (put-text-property (1- (point)) (point) 'pause contents)))

;;}}}
;;{{{ Map Handlers:
(cl-loop
 for f in
 '(exp pause text)
 do
 (emacspeak-maths-handler-set f
                              (intern (format "emacspeak-maths-parse-%s"  (symbol-name f)))))

;;}}}
;;{{{ Process Filter:

