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

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

[elpa] externals/javaimp 315e571: * javaimp-parse.el (javaimp--parse-arg


From: Filipp Gunbin
Subject: [elpa] externals/javaimp 315e571: * javaimp-parse.el (javaimp--parse-arglist): Use syntax-ppss-flush cache before/after with-syntax-table
Date: Wed, 16 Jun 2021 11:21:57 -0400 (EDT)

branch: externals/javaimp
commit 315e5711006c04d670edecc133d3e9615c9c8856
Author: Filipp Gunbin <fgunbin@fastmail.fm>
Commit: Filipp Gunbin <fgunbin@fastmail.fm>

    * javaimp-parse.el (javaimp--parse-arglist): Use syntax-ppss-flush cache 
before/after with-syntax-table
---
 javaimp-parse.el | 33 ++++++++++++++++++---------------
 1 file changed, 18 insertions(+), 15 deletions(-)

diff --git a/javaimp-parse.el b/javaimp-parse.el
index 53decbe..ee0e573 100644
--- a/javaimp-parse.el
+++ b/javaimp-parse.el
@@ -64,22 +64,25 @@ present."
 non-nil, then name parsing is skipped."
   (save-excursion
     (save-restriction
+      (syntax-ppss-flush-cache beg)
       (narrow-to-region beg end)
-      (with-syntax-table javaimp--arglist-syntax-table ;skip generics like 
lists
-        (goto-char (point-max))
-        (ignore-errors
-          (let (res)
-            (while (progn
-                     (javaimp--parse-skip-back-until)
-                     (not (bobp)))
-              (push (javaimp--parse-arglist-one-arg only-type) res)
-              ;; move back to the previous argument, if any
-              (when (javaimp--parse-skip-back-until
-                     (lambda (_last-what _last-pos)
-                       (and (not (bobp))
-                            (= (char-before) ?,))))
-                (backward-char)))       ; skip comma
-            res))))))
+      (prog1
+          (with-syntax-table javaimp--arglist-syntax-table
+            (goto-char (point-max))
+            (ignore-errors
+              (let (res)
+                (while (progn
+                         (javaimp--parse-skip-back-until)
+                         (not (bobp)))
+                  (push (javaimp--parse-arglist-one-arg only-type) res)
+                  ;; move back to the previous argument, if any
+                  (when (javaimp--parse-skip-back-until
+                         (lambda (_last-what _last-pos)
+                           (and (not (bobp))
+                                (= (char-before) ?,))))
+                    (backward-char)))   ; skip comma
+                res)))
+        (syntax-ppss-flush-cache beg)))))
 
 (defun javaimp--parse-arglist-one-arg (only-type)
   "Parse one argument as type and name backwards starting from



reply via email to

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