[nongnu] elpa/lua-mode 3019e75 327/468: Merge pull request #117 from immerrr/fix-string-parsing

[Philip Kaludercic]

branch: elpa/lua-mode
commit 3019e7537ba807313f5536b39eb708d949a1cd23
Merge: 563ac50 4b5aad7
Author: dennis again <immerrr@gmail.com>
Commit: dennis again <immerrr@gmail.com>

    Merge pull request #117 from immerrr/fix-string-parsing
    
    lua-try-match-multiline-begin: don't do syntax-ppss after the opener
---
 lua-mode.el | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

diff --git a/lua-mode.el b/lua-mode.el
index 95bf6dc..1ca228b 100644
--- a/lua-mode.el
+++ b/lua-mode.el
@@ -904,14 +904,12 @@ If none can be found before reaching LIMIT, return nil."
         (and (setq last-search-matched
                    (re-search-forward lua-ml-begin-regexp limit 'noerror))
 
-             ;; (1+ (match-beginning 0)) is required to handle triple-hyphen
-             ;; '---[[' situation: regexp matches starting from the second one,
-             ;; but it's not yet a comment, because it's a part of 2-character
-             ;; comment-start sequence, so if we try to detect if the opener is
-             ;; inside a comment from the second hyphen, it'll fail.  But the
-             ;; third one _is_ inside a comment and considering it instead will
-             ;; fix the issue. --immerrr
-             (lua-comment-or-string-start-pos (1+ (match-beginning 0)))))
+             (or (lua-comment-or-string-start-pos (match-beginning 0))
+                 ;; Handle triple-hyphen '---[[' situation: match-beginning is
+                 ;; BEFORE the second hyphen, but the comment would only starts
+                 ;; AFTER it.
+                 (and (eq ?- (char-after (match-beginning 0)))
+                      (eq ?- (char-before (match-beginning 0)))))))
 
     last-search-matched))