Lines Matching +defs:forward +defs:comment
167 (define-key ruby-mode-map "\e\C-f" 'ruby-forward-sexp)
223 (defcustom ruby-comment-column 32
226 (put 'ruby-comment-column 'safe-local-variable 'integerp)
248 "*Use `ruby-encoding-map' to set encoding magic comment if this is non-nil."
258 (while (re-search-forward "^\\s *\\(\\(class\\s +\\|\\(class\\s *<<\\s *\\)\\|module\\s +\\)\\([^\(<\n ]+\\)\\|\\(def\\|alias\\)\\s +\\([^\(\n ]+\\)\\)" end t)
308 (make-local-variable 'comment-start)
309 (setq comment-start "# ")
310 (make-local-variable 'comment-end)
311 (setq comment-end "")
312 (make-local-variable 'comment-column)
313 (setq comment-column ruby-comment-column)
314 (make-local-variable 'comment-start-skip)
315 (setq comment-start-skip "#+ *")
332 (when (re-search-forward "[^\0-\177]" nil t)
357 ((forward-char)))))
407 (forward-word -1)
419 (forward-char -1)
431 (save-excursion (forward-char -1) (looking-at "\\Sw$"))))
448 (defun ruby-forward-string (term &optional end no-error expand)
453 (while (and (re-search-forward re end no-error)
455 (ruby-forward-string "}{" end no-error nil)
458 (forward-char -1))
480 (when (re-search-forward ruby-delimiter end 'move)
489 (ruby-forward-string (buffer-substring (point) (1+ (point))) end t t))
497 (re-search-forward "[^\\]\\(\\\\\\\\\\)*'" end t))
507 (if (ruby-forward-string "/" end t t)
529 (unless (cond (re (ruby-forward-string re end t expand))
530 (expand (ruby-forward-string w end t t))
531 (t (re-search-forward
549 (forward-char 1))
550 ((looking-at "#") ;skip comment
551 (forward-line 1)
572 (forward-char)
582 (forward-char -1)
599 (forward-char -1)
614 (forward-char -1)
624 (skip-chars-forward " \t")
634 (ruby-forward-string (buffer-substring (match-beginning 1) (match-end 1)) end))
645 (if (re-search-forward "^=end" end t)
646 (forward-line 1)
668 (if (re-search-forward (concat "^" re "$") end 'move)
669 (forward-line 1)
677 (if (re-search-forward (ruby-here-doc-end-match)
679 (forward-line 1)
714 (paren (progn (skip-syntax-forward " ")
741 (forward-word -1)
760 (forward-word -1) ; skip back a keyword
781 (re-search-forward ruby-negative eol t))
790 ;; goto beginning of non-empty no-comment line
796 (if (re-search-forward "^\\s *#" end t)
801 ;; skip the comment at the end
805 (while (and (re-search-forward "#" pos t)
815 (or (bobp) (forward-char -1))
832 ;; (skip-chars-forward " \t")
840 (or (eolp) (forward-char -1))
846 (forward-char -1)
849 (forward-word -1)
863 (skip-syntax-forward " ")
870 (skip-syntax-forward " ")
909 "Move forward to next end of defun.
910 An end of a defun is found by moving forward from the beginning of one."
912 (and (re-search-forward (concat "^\\(" ruby-block-end-re "\\)\\($\\|\\b[^_]\\)")
915 (forward-line 1))
923 (forward-line n)
928 (re-search-forward "^=end\\>"))
963 "Move forward to next beginning-of-block"
967 (defun-region-command ruby-forward-sexp (&optional cnt)
974 (skip-syntax-forward " ")
979 (skip-chars-forward ",.:;|&^~=!?\\+\\-\\*")
986 (forward-word 1))
989 (while (progn (forward-word 1) (looking-at "_")))
990 (cond ((looking-at "::") (forward-char 2) t)
991 ((> (skip-chars-forward ".") 0))
993 (forward-char 1) nil)))))
1001 (skip-chars-forward "<"))
1004 ((error) (forward-word 1)))
1010 (ruby-forward-sexp (- cnt))
1015 (forward-char -1)
1019 (?% (forward-char -1))
1021 (if (eq (char-before (1- (point))) ?%) (forward-char -2))))
1029 (if (ruby-special-char-p) (forward-char -1)))
1032 (forward-char 1)
1033 (while (progn (forward-word -1)
1036 (?. (forward-char -1) t)
1038 (forward-char -1)
1039 (and (eq (char-before) (char-after)) (forward-char -1)))
1041 (forward-char -1)
1059 (fset 'ruby-encomment-region (symbol-function 'comment-region))
1065 (while (re-search-forward "^\\([ \t]*\\)#" end t)
1171 (let ((orig (point)) (end (progn (ruby-forward-sexp) (point))))
1193 (let ((orig (point)) (end (progn (ruby-forward-sexp) (point))))
1267 ((eq context 'comment)
1299 (while (re-search-forward ruby-here-doc-beg-re eol t)
1305 (unless (re-search-forward end-re limit t) (throw 'done nil))
1328 (if (and (re-search-forward (ruby-here-doc-beg-match) eol t) ; If there is a heredoc that matches this line...
1329 (not (ruby-in-ppss-context-p 'anything)) ; And that's not inside a heredoc/string/comment...
1331 (not (re-search-forward ruby-here-doc-beg-re eol t))))
1343 (if (re-search-forward "^=begin\\(\\s \\|$\\)" limit t)
1347 (forward-line 1)
1348 (if (re-search-forward "^=end\\(\\s \\|$\\)" limit t)
1361 (if (and beg (and (re-search-forward "^=\\(begin\\|end\\)\\(\\s \\|$\\)" nil t)
1434 0 font-lock-comment-face t)
1436 0 font-lock-comment-face t)
1462 ("^\\s *#.*$" nil comment)
1463 ("[^$@?\\]\\(#[^$@{\n].*$\\)" 1 comment)