 ;;{{{ Customizations And Variables:
 
 (defgroup emacspeak-maths nil
-  "Customize Emacspeak  Maths.")
+  "Customize Emacspeak  Maths."
+  :group 'emacspeak)
 
 (defcustom emacspeak-maths-inferior-program
   (or (executable-find "node")

;;; emacspeak-maths.el --- Speak Mathematics 
;;; $Author: tv.raman.tv, zorkov  $
;;; Description:  Speak MathML and LaTeX math expressions 
;;; Keywords: Emacspeak,  Audio Desktop maths

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

(defun emacspeak-maths-parse-output (output &optional acc)
  (let* ((start (string-match "BEGINOUTPUT[0-9]+: .* :ENDOUTPUT" output)))
    (if start
        (let* ((rest (cl-subseq output (+ start 11)))
               (colon (string-match ": " rest))
               (number (cl-subseq rest 0 colon))
               (rest (cl-subseq rest (+ colon 2)))
               (end (string-match " :ENDOUTPUT" rest))
               (result (cl-subseq rest 0 end)))
          ;;(push (cons (car (read-from-string number)) result) ems-results)
          (emacspeak-maths-parse-output (cl-subseq rest end)
                                        (cons (cons (car (read-from-string number)) result) acc)))
      acc)))

(defun emacspeak-maths-comint-filter (output)
  "Process output filter."
  (declare (special emacspeak-maths))
