diff options
| author | Filipp Gunbin <fgunbin@fastmail.fm> | 2026-04-04 01:45:37 +0300 |
|---|---|---|
| committer | Filipp Gunbin <fgunbin@fastmail.fm> | 2026-04-04 01:45:37 +0300 |
| commit | aff94732239605311ee84b788ca04818a22f94ca (patch) | |
| tree | 7a9d5ca7290df6459ada85479aec79acb7eab74a | |
| parent | d184883abfc7a854b1c9239a924f13141f8801bc (diff) | |
Use _ in if-let* / when-let*externals/javaimp
| -rw-r--r-- | javaimp-parse.el | 6 | ||||
| -rw-r--r-- | javaimp.el | 10 |
2 files changed, 8 insertions, 8 deletions
diff --git a/javaimp-parse.el b/javaimp-parse.el index 9ff8602..19e14f4 100644 --- a/javaimp-parse.el +++ b/javaimp-parse.el @@ -681,9 +681,9 @@ call this function first." (while t (when-let* ((res (save-excursion (javaimp-parse--scopes nil))) - ((javaimp-scope-type res)) - ((or (null pred) - (funcall pred res)))) + (_ (javaimp-scope-type res)) + (_ (or (null pred) + (funcall pred res)))) (throw 'found res)) ;; Go up (if (nth 1 state) @@ -1125,13 +1125,13 @@ than BOUND. POS should not be in arglist or similar list." ;; open-brace, so we can inspect property. (when-let* ((brace-pos (next-single-property-change (point) 'javaimp-parse-scope)) - ((get-text-property brace-pos 'javaimp-parse-scope)) + (_ (get-text-property brace-pos 'javaimp-parse-scope)) ;; When there're no siblings, javaimp-beginning-of-defun ;; moves to the parent start. In this case we should ;; stay inside the parent. - ((eql (nth 1 (syntax-ppss)) - (save-excursion - (nth 1 (syntax-ppss brace-pos)))))) + (_ (eql (nth 1 (syntax-ppss)) + (save-excursion + (nth 1 (syntax-ppss brace-pos)))))) (ignore-errors (goto-char (scan-lists brace-pos 1 0))))) @@ -1214,7 +1214,7 @@ PREV-INDEX gives the index of the method itself." (setq tmp (nth 1 (syntax-ppss tmp)))) (when tmp (javaimp--beg-of-defun-decl tmp parent-beg)))) - ((= next-beg-decl beg-decl))) + (_ (= next-beg-decl beg-decl))) ;; If we're inside next's declaration - behave as if we were ;; inside its body, so it becomes our prev next |