                    (delete-process inferior-yacas-process))
                (setq inferior-yacas-process nil)
                (run-hooks 'inferior-yacas-exit-hook))) t t)
+  (if yacas-use-emacs-help
+      (yacas-use-emacs-help-start))
   (run-hooks 'inferior-yacas-mode-hook))
 
 ;;;; Interacting with the Yacas process

  "*The indentation in yacas-mode"
  :group 'yacas
  :type 'integer)

;(defcustom yacas-prompt-regexp "^\\(In> \\|Out> \\)"
;  "A regular expression for the Yacas prompt."

    (yacas-single-command (substring stuff 0 end))
    (setq stuff (substring stuff end))))

;;;;
(defconst yacas-use-emacs-help-string-1
   "Help():=SystemCall(\"emacsclient -e \\\"(browse-url \\\\\\\"\":FindFile(\"documentation/books.html\"):\"\\\\\\\")\\\"\");")

(defconst yacas-use-emacs-help-string-2
   "Help(_f)<--SystemCall(\"emacsclient -e \\\"(browse-url \\\\\\\"\":FindFile(\"documentation/ref.html\"):\"#\":f : \"\\\\\\\")\\\"\");")

(defun yacas-use-emacs-help-start ()
  (server-start)
  (yacas-single-command yacas-use-emacs-help-string-1)
  (yacas-single-command yacas-use-emacs-help-string-2))

;;; Sending information to the process should be done through these
;; next four commands

