[elpa] scratch/javaimp-parse e777d1b: wip

[Filipp Gunbin]

branch: scratch/javaimp-parse
commit e777d1bf285c66379f92cc75aab9333bc5184519
Author: Filipp Gunbin <fgunbin@fastmail.fm>
Commit: Filipp Gunbin <fgunbin@fastmail.fm>

    wip
---
 javaimp-parse.el | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

diff --git a/javaimp-parse.el b/javaimp-parse.el
index 4255aae..159b04d 100644
--- a/javaimp-parse.el
+++ b/javaimp-parse.el
@@ -155,10 +155,12 @@
 (defun javaimp--parse-scope-anonymous-class (state)
   (save-excursion
     ;; skip arg-list and ws
-    (when (and (ignore-errors
+    (when (and (progn
+                 (skip-syntax-backward "-")
+                 (= (char-before) ?\)))
+               (ignore-errors
                  (goto-char
-                  (scan-lists (nth 1 state) -1 0)))
-               (= (char-after) ?\())
+                  (scan-lists (point) -1 0))))
       (skip-syntax-backward "-")
       (let ((end (point)))
         (when (and (re-search-backward "\\<new\\s-+" nil t)
@@ -173,10 +175,12 @@
 
 (defun javaimp--parse-scope-method-or-stmt (state)
   (save-excursion
-    (when (and (ignore-errors
+    (when (and (progn
+                 (skip-syntax-backward "-")
+                 (= (char-before) ?\)))
+               (ignore-errors
                  (goto-char
-                  (scan-lists (nth 1 state) -1 0)))
-               (= (char-after) ?\())
+                  (scan-lists (point) -1 0))))
       (let* (;; leave open/close parens out
              (arglist-region (cons (1+ (point))
                                    (1- (scan-lists (point) 1 0))))