[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/javaimp e32fa3dfdc: Replace char-syntax with syntax-aft
From: |
Filipp Gunbin |
Subject: |
[elpa] externals/javaimp e32fa3dfdc: Replace char-syntax with syntax-after |
Date: |
Thu, 12 May 2022 08:44:04 -0400 (EDT) |
branch: externals/javaimp
commit e32fa3dfdc7e83f7f521ba807e536d7e3c797ca7
Author: Filipp Gunbin <fgunbin@fastmail.fm>
Commit: Filipp Gunbin <fgunbin@fastmail.fm>
Replace char-syntax with syntax-after
---
javaimp-parse.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/javaimp-parse.el b/javaimp-parse.el
index 3425fbee83..64f6797fcf 100644
--- a/javaimp-parse.el
+++ b/javaimp-parse.el
@@ -192,8 +192,9 @@ function is to just skip whitespace / comments."
;; move out of comment/string if in one
(goto-char (nth 8 state)))
((and (not (bobp))
- ;; FIXME use syntax-after instead
- (member (char-syntax (char-before)) '(?> ?!)))
+ (memql (syntax-class (syntax-after (1- (point))))
+ ;; comment end, generic comment
+ '(12 14)))
(backward-char))
((funcall stop-p last-what last-pos)
(throw 'done (if (and last-what last-pos)
@@ -201,7 +202,7 @@ function is to just skip whitespace / comments."
t)))
((bobp)
(throw 'done nil))
- ((= (char-syntax (char-before)) ?\))
+ ((= (syntax-class (syntax-after (1- (point)))) 5) ;close-paren
(backward-list)
(setq last-what 'list
last-pos (point)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/javaimp e32fa3dfdc: Replace char-syntax with syntax-after,
Filipp Gunbin <=