Support function completion following ##

1 files changed, 10 insertions, 0 deletions

diff --git a/llama.el b/llama.el
index 250684b..5f8302f 100644
--- a/llama.el
+++ b/llama.el
@@ -133,6 +133,16 @@ It also looks a bit like #\\='function."
     (seq-doseq (elt data)
       (llama--collect elt args)))))
 
+(defun llama--expect-function-p (fn pos)
+  (or (and (eq (char-before    pos)    ?#)
+           (eq (char-before (- pos 1)) ?#))
+      (and (eq (char-before    pos)    ?\s)
+           (eq (char-before (- pos 1)) ?#)
+           (eq (char-before (- pos 2)) ?#))
+      (funcall fn pos)))
+
+(advice-add 'elisp--expect-function-p :around #'llama--expect-function-p)
+
 ;;; _
 (provide 'llama)
 ;; Local Variables: