X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/ed75169bc3f458a25a192186c0d05bff8a54be36..b446a994bb90e8a62cc7ff362c8e0421ef9c226f:/company-elisp.el

diff --git a/company-elisp.el b/company-elisp.el
index 284775a73..a27edaede 100644
--- a/company-elisp.el
+++ b/company-elisp.el
@@ -72,7 +72,7 @@ first in the candidates list."
   "Regular expression matching head of a form with one variable binding.")
 
 (defvar company-elisp-fun-binding-regexp
-  (concat "\\_<\\(?:cl-\\)?" (regexp-opt '("flet" "labels")) "\\_>")
+  (concat "\\_<\\(?:cl-\\)?" (regexp-opt '("flet" "labels")) "\\*?\\_>")
   "Regular expression matching head of a function bindings form.")
 
 (defun company-elisp-locals (prefix functions-p)