company-elisp-fun-binding-regexp: Consider cl-flet*

[gnu-emacs-elpa] / company-elisp.el

diff --git a/company-elisp.el b/company-elisp.el
index 284775a73410c7d1ea6a66da777362658480eb1c..a27edaedec3366499c17810859bc9a596f667e99 100644 (file)
--- 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)