 
 ;;;###autoload
 (defun inferior-lfe (cmd)
-  "Run an inferior LFE process, input and output via a buffer `*inferior-lfe*'."
+  "Run an inferior LFE process, input and output via a buffer `*inferior-lfe*'.
+If `CMD' is given, use it to start the shell, otherwise:
+`inferior-lfe-program' `inferior-lfe-program-options' -env TERM vt100."
 ;;   (interactive (list (if current-prefix-arg
 ;;                       (read-string "Run LFE: " inferior-lfe-program)
 ;;                     inferior-lfe-program)))

  (run-mode-hooks 'inferior-lfe-mode-hook))

(defun lfe-input-filter (str)
  (not (string-match inferior-lfe-filter-regexp str)))

(defun lfe-get-old-input ()


(defun lfe-eval-last-sexp (&optional and-go)
  "Send the previous sexp to the inferior LFE process.
`AND-GO' means switch to the LFE buffer afterwards."
  (interactive "P")
  (lfe-eval-region (save-excursion (backward-sexp) (point)) (point) and-go))

