minor fix for go to labels

Author: LdBeth

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