branch: elpa/j-mode
commit 073524d3ffd1320b3c4f8640e7b6e8419df75159
Author: LdBeth <andp...@foxmail.com>
Commit: LdBeth <andp...@foxmail.com>
minor fix for go to labels
---
j-mode.el | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/j-mode.el b/j-mode.el
index 63aeed7f5e..847b1409e7 100644
--- a/j-mode.el
+++ b/j-mode.el
@@ -80,10 +80,11 @@
"try." "except." "catch." "catcht." "catchd."
"while." "whilst."
"for.")))
- (seq (or "for" "goto" "label")
- (regexp "_[a-zA-Z]+\\."))))
+ (seq (or "for" "label") "_"
+ (+ (any "a-zA-Z"))
+ ".")))
(seq bol ":" eol)
- (seq (regexp "[_a-zA-Z0-9]+") (? "'")
+ (seq (+ (any "_a-zA-Z0-9")) (? "'")
(* "\s") "=" (or "." ":") (* "\s")
(or "{{"
(seq (regexp
@@ -102,7 +103,8 @@
"else." "elseif."
"case." "fcase."
"catch." "catcht." "catchd."
- "except.")))))))
+ "except."
+ "label")))))))
(defun j-thing-outside-string (thing-regexp)
"Look for REGEXP from `point' til `point-at-eol' outside strings and
