   (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 ()

(defalias 'run-lfe 'inferior-lfe)

(defun lfe-eval-region (start end &optional and-go)
  "Send the current region to the inferior LFE process.
Prefix argument means switch to the LFE buffer afterwards."
  (interactive "r\nP")
  (comint-send-region (inferior-lfe-proc) start end)
  (comint-send-string (inferior-lfe-proc) "\n")


;;;###autoload
(defun inferior-lfe (cmd)
  "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)))
