From: Dmitry Gutov <dgutov@yandex.ru>
Date: Thu, 31 Jul 2014 14:15:00 +0000 (+0300)
Subject: company-dabbrev--search-buffer: Use `syntax-ppss' to get to the beg of str-or-cmt
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/a5a6eeecf0ac9bda696091ab2a88a573f2fe3fd4?hp=43b05ffa8a72d3bcce763285f8b1f4a907fa4011

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

Fixes #158
---

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)))