company-dabbrev--search-buffer: Use `syntax-ppss' to get to the beg of str-or-cmt

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

diff --git a/company-dabbrev.el b/company-dabbrev.el
index ef63d90780ec317950961ddfb3159e713f868c9e..3d57bb5c2eb53405ab2436eb48b9f7b75860b16e 100644 (file)
--- 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)))