Lines Matching +defs:forward +defs:comment
189 ;; We cannot use `c-forward-syntactic-ws' directly since it is a macro since
192 ;; cc-mode would fail (undefined `c-forward-sws') when used with older cc-mode.
193 ;; Additional to the `defalias' below, we must set `antlr-c-forward-sws' to
194 ;; `c-forward-syntactic-ws' when `c-forward-sws' is not defined after requiring
196 (defalias 'antlr-c-forward-sws 'c-forward-sws)
271 (defcustom antlr-indent-comment 'tab
273 If nil, no continuation line of a block comment is changed. If t, they
703 (define-key map "\C-c\C-f" 'c-forward-into-nomenclature)
705 (define-key map "\C-c\C-c" 'comment-region)
753 ["Forward Into Nomencl." c-forward-into-nomenclature t])
756 ["Comment Out Region" comment-region
759 (comment-region (region-beginning) (region-end) '(4))
929 (antlr-re-search-forward antlr-font-lock-literal-regexp limit)))
933 (antlr-re-search-forward antlr-class-header-regexp limit))
941 (antlr-re-search-forward
946 (antlr-re-search-forward
955 (antlr-re-search-forward "^\\(\\sw+\\)[ \t]*\\(:\\)?" limit))
962 (antlr-re-search-forward "\\(\\sw+\\)[ \t]*\\([=:]\\)?" limit))
972 (antlr-re-search-forward "[|&:;(~]\\|)\\([*+?]\\|=>\\)?" limit))
1085 Return `string' if point is within a string, `block-comment' or
1086 `comment' is point is within a comment or the depth within all
1121 ((nth 4 state) 'comment) ; block-comment? -- we don't care
1161 ;;; ((nth 4 state) 'comment) ; block-comment? -- we don't care
1168 ;;; ((nth 4 state) 'comment) ; block-comment? -- we don't care
1182 (defun antlr-re-search-forward (regexp bound)
1183 "Search forward from point for regular expression REGEXP.
1191 (while (and (re-search-forward regexp bound 'limit)
1198 (defun antlr-search-forward (string)
1199 "Search forward from point for STRING.
1205 (while (and (search-forward string nil 'limit)
1225 (antlr-c-forward-sws)))
1289 (if (setq continue (antlr-search-forward ";"))
1300 (defun antlr-skip-exception-part (skip-comment)
1303 header. If SKIP-COMMENT is non-nil, also skip the comment after that
1307 (antlr-c-forward-sws)
1322 (or skip-comment (goto-char pos))))
1324 (defun antlr-skip-file-prelude (skip-comment)
1326 If SKIP-COMMENT is non-nil, also skip the comment after that part.
1330 position before the comment after the header."
1333 (antlr-c-forward-sws)
1334 (if skip-comment (setq pos0 (point)))
1337 (if (eq skip-comment 'header-only) ; a hack...
1341 (or skip-comment (goto-char pos))
1344 (defun antlr-next-rule (arg skip-comment)
1345 "Move forward to next end of rule. Do it ARG many times.
1358 (forward-char)
1359 (antlr-skip-exception-part skip-comment))
1360 (antlr-skip-file-prelude skip-comment))
1370 (setq pos (antlr-skip-file-prelude skip-comment))
1378 (forward-char)
1379 (antlr-skip-exception-part skip-comment)))
1382 (decf arg)) ; already moved one defun forward
1385 (antlr-search-forward ";"))
1386 (antlr-skip-exception-part skip-comment)))))
1395 (antlr-c-forward-sws)
1413 "Move forward to next end of rule. Do it ARG [default: 1] many times.
1426 rule. Negative argument ARG means move forward to ARGth next beginning
1448 (antlr-search-forward ";")
1452 (or (antlr-search-forward ":") (point-max))))
1455 (antlr-c-forward-sws))))))
1477 (while (antlr-re-search-forward "\"\\(\\sw\\(\\sw\\|-\\)*\\)\"" nil)
1506 (while (antlr-re-search-forward regexp nil)
1612 (re-search-forward (concat "\\(^\\|;\\)[ \t]*\\(\\<"
1688 (antlr-c-forward-sws))
1736 (antlr-re-search-forward antlr-class-header-regexp
1745 (antlr-skip-file-prelude t) ; ws/comment after: OK
1787 '(comment block-comment)))))
1788 ;; point in options area and not in comment
1802 Move to POS and from there on to the beginning of the string or comment
1814 ((memq context '(comment block-comment))
1877 ;; Move outside string/comment if point is inside option spec
1953 (if (and (search-forward ";" (cdr area) t)
1958 (skip-chars-forward " \t")
1961 ;; just comment after point => skip (+ lines w/ same col comment)
1994 (antlr-c-forward-sws)
2105 (while (antlr-re-search-forward antlr-class-header-regexp nil)
2114 (antlr-c-forward-sws)
2119 (antlr-c-forward-sws)
2126 (if (re-search-forward "\\<exportVocab[ \t]*=[ \t]*\\([A-Za-z\300-\326\330-\337]\\sw*\\)" end t)
2129 (if (re-search-forward "\\<importVocab[ \t]*=[ \t]*\\([A-Za-z\300-\326\330-\337]\\sw*\\)" end t)
2384 `antlr-indent-comment'.
2404 (skip-chars-forward " \t")
2414 (if (antlr-search-forward ":") (< boi (1- (point))) t))
2416 ((if (antlr-search-forward ";") (< boi (point)) t)
2419 (forward-char)
2455 (if (eq syntax 'string) nil (eq antlr-indent-comment t)))
2483 (let ((antlr-indent-comment (and antlr-indent-comment t))) ; dynamic
2525 c-comment-start-regexp c-C++-comment-start-regexp
2535 c-comment-start-regexp c-Java-comment-start-regexp
2556 (re-search-forward (cdr antlr-language-limit-n-regexp)
2577 (unless (fboundp 'c-forward-sws) ; see above
2578 (fset 'antlr-c-forward-sws 'c-forward-syntactic-ws))
2627 (setq comment-start "// "
2628 comment-end ""
2629 comment-start-skip "/\\*+ *\\|// *")