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


;;;###autoload
(defun inferior-lfe (cmd)
  "Run an inferior LFE process, input and output via a buffer `*inferior-lfe*'."
;;   (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)
  "Predicate for filtering additions to input history.
Return nil if `STR` matches `inferior-lfe-filter-regexp', otherwise t."
  (not (string-match inferior-lfe-filter-regexp str)))

(defun lfe-get-old-input ()
