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

(declaim  (optimize  (safety 0) (speed 3)))
(require 'comint)
(require 'derived)
                                        ;(require 'hydra)
;;}}}
;;{{{ Customizations And Variables:


    (current-buffer)))

;;}}}
;;{{{ Muggle: Speak And Browse Math
(global-set-key
 (kbd "s-SPC")
 (defhydra emacspeak-maths-navigator
   (:body-pre (emacspeak-muggles-body-pre "Spoken Math")
              :pre emacspeak-muggles-pre
              :post emacspeak-muggles-post)
   "Spoken Math"
   ("SPC" emacspeak-maths-enter "enter")
   ("<up>" emacspeak-maths-up "Up")
   ("<down>" emacspeak-maths-down"down")
   ("<left>" emacspeak-maths-left "left")
   ("<right>" emacspeak-maths-right "right")))

;;}}}
(provide 'emacspeak-maths)
;;{{{ end of file

