   (declare (special emacspeak-maths))
   (setf(emacspeak-maths-input emacspeak-maths)
        (cond
+        ((eq major-mode 'calc-mode)
+         (emacspeak-maths-guess-calc))
         ((and (memq major-mode '(tex-mode plain-tex-mode latex-mode ams-tex-mode))
               (featurep 'texmathp))
          (emacspeak-maths-guess-tex))


(defun emacspeak-maths-enter (latex)
  "Send a LaTeX expression to Maths server.
Tries to guess default based on context."
  (interactive
   (list
    (progn (emacspeak-maths-guess-input) ;guess based on context

                                 (emacspeak-maths-input emacspeak-maths)))))
  (declare (special emacspeak-maths))
  (emacspeak-maths-ensure-server)
  (when (string= "" latex)
    (setq latex (emacspeak-maths-input emacspeak-maths)))
  (setf (emacspeak-maths-input emacspeak-maths) latex)
  (process-send-string
   (emacspeak-maths-client-process emacspeak-maths)
