   (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.

        (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)))
          
  
;;}}}
;;{{{ Process Filter:


  (when (process-live-p (emacspeak-maths-server-process emacspeak-maths))
    (delete-process (emacspeak-maths-server-process emacspeak-maths)))
  (when (buffer-live-p (emacspeak-maths-server-buffer emacspeak-maths))
    (kill-buffer (emacspeak-maths-server-buffer emacspeak-maths)))
  (when (buffer-live-p (emacspeak-maths-client-buffer emacspeak-maths))
    (kill-buffer (emacspeak-maths-client-buffer emacspeak-maths)))
  (message "Shutdown Maths server and client."))

;;}}}
