emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[nongnu] elpa/kotlin-mode 0649b358f2 141/162: Make compatible with 24.3


From: ELPA Syncer
Subject: [nongnu] elpa/kotlin-mode 0649b358f2 141/162: Make compatible with 24.3
Date: Sat, 29 Jan 2022 08:25:31 -0500 (EST)

branch: elpa/kotlin-mode
commit 0649b358f242244f35ada4abc3c8482b645f059c
Author: taku0 <mxxouy6x3m_github@tatapa.org>
Commit: taku0 <mxxouy6x3m_github@tatapa.org>

    Make compatible with 24.3
---
 kotlin-mode-lexer.el | 24 ++++++++++++++++++------
 1 file changed, 18 insertions(+), 6 deletions(-)

diff --git a/kotlin-mode-lexer.el b/kotlin-mode-lexer.el
index f667d24b2d..2548ff06af 100644
--- a/kotlin-mode-lexer.el
+++ b/kotlin-mode-lexer.el
@@ -332,16 +332,28 @@ If PARSER-STATE is given, it is used instead of 
(syntax-ppss)."
       ;; single-line string delimiters.
       (if (save-excursion (goto-char (nth 8 parser-state))
                           (looking-at "\"\"\""))
-          (kotlin-mode--chunk 'multiline-string (nth 8 parser-state))
-        (kotlin-mode--chunk 'single-line-string (nth 8 parser-state))))
+          (make-instance 'kotlin-mode--chunk
+                         :type 'multiline-string
+                         :start (nth 8 parser-state))
+        (make-instance 'kotlin-mode--chunk
+                       :type 'single-line-string
+                       :start (nth 8 parser-state))))
      ((eq (nth 4 parser-state) t)
-      (kotlin-mode--chunk 'single-line-comment (nth 8 parser-state)))
+      (make-instance 'kotlin-mode--chunk
+                     :type 'single-line-comment
+                     :start (nth 8 parser-state)))
      ((nth 4 parser-state)
-      (kotlin-mode--chunk 'multiline-comment (nth 8 parser-state)))
+      (make-instance 'kotlin-mode--chunk
+                     :type 'multiline-comment
+                     :start (nth 8 parser-state)))
      ((and (eq (char-before) ?/) (eq (char-after) ?/))
-      (kotlin-mode--chunk 'single-line-comment (1- (point))))
+      (make-instance 'kotlin-mode--chunk
+                     :type 'single-line-comment
+                     :start (1- (point))))
      ((and (eq (char-before) ?/) (eq (char-after) ?*))
-      (kotlin-mode--chunk 'multiline-comment (1- (point))))
+      (make-instance 'kotlin-mode--chunk
+                     :type 'multiline-comment
+                     :start (1- (point))))
      (t
       nil))))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]