[elpa] externals/javaimp e32fa3dfdc: Replace char-syntax with syntax-after

[Filipp Gunbin]

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