 ;; Auto insert space when completing (foo ) if foo takes multiple
 ;; args.
 ;;
-;; Completion inside emacs style `backticks'.
+;; Completion inside emacs style `backticks' inside docstrings and
+;; comments.
 ;;
 ;; Even when we can't offer an exact set of options, offer the current
 ;; package as a prefix.

  ;; `-lambda' too.
  (--map (+ x it) y))

(defun wh/in-obarray-p (sym)
  (not (null (intern-soft sym))))

(defun wh/bound-syms-at-point ()

      (setq form
            (macroexpand-all (read (current-buffer)))))
    (delete-char 5)
    ;; Filter out any symbols created by `make-symbol'. This allows
    ;; us to find deliberate bindings, such as `it' with `--map', but
    ;; not consider symbols from `gensym'.
    (-filter #'wh/in-obarray-p (wh/bound-syms form))))

(defun wh/bound-syms (form &optional accum)
  "Return a list of bound symbols around the symbol XXX in FORM.
