 ;;}}}
 ;;{{{ Output: spoken-math mode:
 
-(define-derived-mode emacspeak-maths-spoken-mode view-mode
+(define-derived-mode emacspeak-maths-spoken-mode special-mode
   "Spoken Math On The Complete Audio Desktop"
   "Special mode for interacting with Spoken Math.
 

  (let ((server
         (make-comint "Server-Maths" emacspeak-maths-inferior-program nil emacspeak-maths-server-program))
        (client nil))
    (accept-process-output (get-buffer-process server))
    (setq client (open-network-stream "Client-Math" "*Client-Math*" "localhost" 5000))
    (setf emacspeak-maths
          (make-emacspeak-maths

(defun emacspeak-maths-handle-welcome (contents)
  "Handle welcome message."
  (message "%s" contents))

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