company-dabbrev--make-regexp: Regexp can match non-word characters

Refs #433

diff --git a/company-dabbrev.el b/company-dabbrev.el
index 34acffe5d9667fc254c0397487e09ff4d1f5e344..337943d42b395dbb3c4b7ed41288496691c1b6a1 100644 (file)
--- a/company-dabbrev.el
+++ b/company-dabbrev.el
@@ -92,10 +92,10 @@ This variable affects both `company-dabbrev' and `company-dabbrev-code'."
               (throw 'done 'company-time-out))))))
 
 (defun company-dabbrev--make-regexp (prefix)
-  (concat "\\<" (if (equal prefix "")
-                    (concat "\\(?:" company-dabbrev-char-regexp "\\)")
-                  (regexp-quote prefix))
-          "\\(?:" company-dabbrev-char-regexp "\\)*\\>"))
+  (concat (if (equal prefix "")
+              (concat "\\(?:" company-dabbrev-char-regexp "\\)")
+            (regexp-quote prefix))
+          "\\(?:" company-dabbrev-char-regexp "\\)*"))
 
 (defun company-dabbrev--search-buffer (regexp pos symbols start limit
                                        ignore-comments)