       (put-text-property
        start (point)
        'personality (emacspeak-maths-acss acss))
-      (when pause
-        (put-text-property
-         start (1+ start)
-         'pause pause)
-        (setf (emacspeak-maths-pause emacspeak-maths) nil)))))
+      (emacspeak-maths-apply-pause start))))
 
 (defun emacspeak-maths-handle-pause (ms)
   "Handle Pause value."

  client-buffer ; network socket stream
  client-process ; network connection
  output ; where output is displayed
  pause ; pending pause to add 
  results
  )



;;; All handlers are called with the body of the unit being parsed.
;;; Handlers process input and render to output buffer
;;; Except for the pause handler that merely records the pause,
;;; Leaving it to the next text handler to consume that pause.

;;; Helper: Handle plain strings

(defun emacspeak-maths-handle-string (string)
  "Handle plain, unannotated string."
  (declare (special emacspeak-maths))
  (with-current-buffer (emacspeak-maths-output emacspeak-maths)
    (let ((start (point)))
      (insert (format "%s\n" string))
      (emacspeak-maths-apply-pause start))))

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