X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/7afffbc99040f50b032713276936511deaaf0568..4646d35eb9191650665a723e80be6a7c19acb242:/company-dabbrev-code.el diff --git a/company-dabbrev-code.el b/company-dabbrev-code.el index dcfe6ab53..cbe8d3f96 100644 --- a/company-dabbrev-code.el +++ b/company-dabbrev-code.el @@ -69,7 +69,7 @@ also `company-dabbrev-code-time-limit'." "Non-nil to ignore case when collecting completion candidates." :type 'boolean) -(defsubst company-dabbrev-code--make-regexp (prefix) +(defun company-dabbrev-code--make-regexp (prefix) (concat "\\_<" (if (equal prefix "") "\\([a-zA-Z]\\|\\s_\\)" (regexp-quote prefix))