From: Nikolaj Schumacher <git@nschum.de>
Date: Fri, 17 Apr 2009 08:40:24 +0000 (+0200)
Subject: Added company-dabbrev-char-regexp.
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/d064e611972d41a2cee84fecde071a5cb0b857a4

Added company-dabbrev-char-regexp.
---

diff --git a/company-dabbrev.el b/company-dabbrev.el
index 3d828a1c1..212a43003 100644
--- a/company-dabbrev.el
+++ b/company-dabbrev.el
@@ -36,6 +36,11 @@ See also `company-dabbrev-time-limit'."
   :type '(choice (const :tag "Off" nil)
                  (number :tag "Seconds")))
 
+(defcustom company-dabbrev-char-regexp "\\sw"
+  "*A regular expression matching the characters `company-dabbrev' looks for."
+  :group 'company
+  :type 'regexp)
+
 (defmacro company-dabrev--time-limit-while (test start limit &rest body)
   (declare (indent 3) (debug t))
   `(let ((company-time-limit-while-counter 0))
@@ -49,7 +54,10 @@ See also `company-dabbrev-time-limit'."
               (throw 'done 'company-time-out))))))
 
 (defsubst company-dabbrev--make-regexp (prefix)
-  (concat "\\<" (if (equal prefix "") "\\sw" (regexp-quote prefix)) "\\sw*\\>"))
+  (concat "\\<" (if (equal prefix "")
+              company-dabbrev-char-regexp
+            (regexp-quote prefix))
+          "\\(" company-dabbrev-char-regexp "\\)*\\>"))
 
 (defun company-dabbrev--search-buffer (regexp pos symbols start limit
                                        ignore-comments)