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


(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."
  (interactive "P")
  (lfe-eval-region (save-excursion (backward-sexp) (point)) (point) and-go))


(defalias 'run-lfe 'inferior-lfe)

(defun lfe-eval-region (start end &optional and-go)
  "Send the current region (from `START' to `END') to the inferior LFE process.
`AND-GO' 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")
