 
 (defun yacas-help ()
   (interactive)
-  (let ((fn (read-string "Help on: ")))
+  (let ((fn (completing-read "Help on: " yacas-words)))
     (select-window (split-window))
     (if (string= fn "")
         (browse-url

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

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


      (search-backward "$")
      (setq end (point))
      (buffer-substring-no-properties beg end))))

(add-hook 'yacas-start-shell-hooks 'yacas-toggle-prettyform)

