X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/43b05ffa8a72d3bcce763285f8b1f4a907fa4011..a5a6eeecf0ac9bda696091ab2a88a573f2fe3fd4:/company-dabbrev.el

diff --git a/company-dabbrev.el b/company-dabbrev.el
index ef63d9078..3d57bb5c2 100644
--- a/company-dabbrev.el
+++ b/company-dabbrev.el
@@ -95,7 +95,7 @@ If you set this value to nil, you may also want to set
           start limit
         (setq match (match-string-no-properties 0))
         (if (and ignore-comments (company-in-string-or-comment))
-            (re-search-backward "\\s<\\|\\s!\\|\\s\"\\|\\s|" nil t)
+            (goto-char (nth 8 (syntax-ppss)))
           (when (>= (length match) company-dabbrev-minimum-length)
             (push match symbols))))
       (goto-char (or pos (point-min)))