branch: elpa/llama
commit e919c6e55c091c360d708295f9f832f896d3a457
Author: Jonas Bernoulli <jo...@bernoul.li>
Commit: Jonas Bernoulli <jo...@bernoul.li>
Support function completion following ##
---
llama.el | 10 ++++++++++
1 file changed, 10 insertions(+)
diff --git a/llama.el b/llama.el
index 250684b263..5f8302f9bf 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:
