Lines Matching +defs:forward +defs:comment
63 ;; works on comment-only lines. But what is "properly"? New rules for
143 (defcustom dcl-comment-line-regexp "^\\$!"
144 "*Regexp describing the start of a comment line in DCL.
294 (modify-syntax-entry ?! "<" dcl-mode-syntax-table) ; comment start
295 (modify-syntax-entry ?\n ">" dcl-mode-syntax-table) ; comment end
311 (define-key dcl-mode-map "\ee" 'dcl-forward-command)
321 (define-key dcl-mode-map "\C-c\C-f" 'tempo-forward-mark)
331 (define-key dcl-mode-map [menu-bar dcl tempo-forward-mark]
332 '("Next template mark" . tempo-forward-mark))
355 (define-key dcl-mode-map [menu-bar dcl dcl-forward-command]
356 '("End of statement" . dcl-forward-command))
388 "Regular expression describing a DCL command line up to a trailing comment.
392 optionally followed by a comment, followed by a newline."
403 optionally followed by a comment, followed by a newline."
426 (dcl-comment-line-regexp dcl-option-value-comment-line)
437 (comment-start curval)
438 (comment-start-skip curval)
489 Whole-line comments (matching dcl-comment-line-regexp) are not indented.
516 dcl-comment-line-regexp
575 $! This is a comment line that is not indented (it matches
576 $! dcl-comment-line-regexp)
606 (make-local-variable 'comment-start)
607 (setq comment-start "!")
609 (make-local-variable 'comment-end)
610 (setq comment-end "")
612 (make-local-variable 'comment-multi-line)
613 (setq comment-multi-line nil)
616 ;; The drawback was that you couldn't make empty comment lines by pressing
617 ;; C-M-j repeatedly - only the first line became a comment line.
619 ;; and something inappropriate might be interpreted as a comment.
620 (make-local-variable 'comment-start-skip)
621 (setq comment-start-skip "\\$[ \t]*![ \t]*")
628 (make-local-variable 'dcl-comment-line-regexp)
671 (re-search-forward dcl-command-regexp nil t))
700 (defun dcl-backward-command (&optional incl-comment-commands)
702 Move point to the preceding command line that is not a comment line,
703 a command line with only a comment, only contains a `$' or only
724 ((looking-at dcl-comment-line-regexp)
725 t) ; comment line, one more loop
726 ((and (not incl-comment-commands)
728 t) ; comment only command, loop...
744 (defun dcl-forward-command (&optional incl-comment-commands)
745 "Move forward to a command.
746 Move point to the end of the next command line that is not a comment line,
747 a command line with only a comment, only contains a `$' or only
757 ;; go forward one statement and look at the command
772 ((looking-at dcl-comment-line-regexp)
773 t) ; comment line, one more loop
774 ((and (not incl-comment-commands)
776 t) ; comment only command, loop...
795 If this is a comment line then move to the first non-whitespace character
796 in the comment.
815 ;; $ l: ! comment
843 ;; Special treatment for comment lines. We are trying to allow
844 ;; things like "$ !*" as comment lines.
845 ((looking-at dcl-comment-line-regexp)
846 (re-search-forward (concat dcl-comment-line-regexp "[ \t]*") limit t)
853 (re-search-forward "^\\$[ \t]*" limit t)
865 (re-search-forward (concat dcl-label-r "[ \t]*") limit t))
869 ;; Move over the beginning of a comment
871 (re-search-forward "![ \t]*" limit t))
885 $! for a comment line
890 ;; Check if it's a comment line.
891 ;; A comment line starts with $!
894 (if (looking-at dcl-comment-line-regexp)
910 (re-search-forward dcl-command-regexp opoint t)
918 (forward-line -1)
949 (message "comment line"))
1132 ((looking-at dcl-comment-line-regexp)
1133 t) ; comment line, one more loop
1154 ;; Look at comment, continuation character, command but not label
1157 (re-search-forward "^\\$[ \t]*")
1158 (re-search-forward (concat "^\\$[ \t]*\\(" dcl-label-r
1162 (re-search-forward dcl-ws-r)
1176 (re-search-forward (concat "^\\$" dcl-ws-r))
1241 (let ((end (save-excursion (forward-line 1) (point))))
1243 (if (re-search-forward (concat "^\\$[ \t]*\\(" dcl-label-r
1247 (if (> (skip-chars-forward "@:[]<>$\\-a-zA-Z0-9_.;" end) 0)
1249 (skip-chars-forward " \t" end)
1254 (skip-chars-forward " \t:=" end)))
1262 (> (skip-chars-forward "a-zA-Z0-9_" end) 0))
1264 (skip-chars-forward " \t" end)
1314 ((looking-at dcl-comment-line-regexp)
1327 ;; Look at comment, continuation character, command but not label
1330 (re-search-forward "^\\$[ \t]*")
1331 (re-search-forward (concat "^\\$[ \t]*\\(" dcl-label-r
1350 (re-search-forward "^\\$[ \t]*")
1361 (re-search-forward dcl-label-r)))
1379 (re-search-forward "^[ \t]*")
1381 (skip-chars-forward " \t")))
1388 (delete-region (point) (progn (skip-chars-forward chars) (point))))
1449 (re-search-forward "^\\$?[ \t]*" start-point t))))
1490 (skip-chars-forward " \t")
1521 ((not (nth 4 info)) ; not in comment
1527 (forward-char -1)
1529 (forward-char 1)
1545 (indent-new-comment-line))))
1585 (if (dcl-forward-command)
1610 (re-search-forward "^$[ \t]*" nil t)
1627 (defun dcl-option-value-comment-line (option-assoc)
1628 "Guess a value for `dcl-comment-line-regexp'.
1630 ;; Should we set comment-start and comment-start-skip as well?
1631 ;; If someone wants `$!&' as a comment line, C-M-j won't work well if
1645 dcl-comment-line-regexp))))
1684 "dcl-comment-line-regexp")
1727 (if (dcl-forward-command)
1782 (search-forward "Local Variables:" nil t))
1788 (skip-chars-forward " \t")
1804 (if selective-display (re-search-forward "[\n\C-m]")
1805 (forward-line 1))
1809 (forward-char prefixlen)
1812 (skip-chars-forward " \t")
1814 (skip-chars-forward "^:\n")
1835 (skip-chars-forward "^:")
1836 (forward-char 1)
1842 (skip-chars-forward " \t")
1851 ;; If def- parameter not set, use comment- if set. In that case, make
1857 (comment-start
1858 (if (or (equal comment-start "")
1859 (string-match "[ \t]$" comment-start))
1860 comment-start
1861 (concat comment-start " ")))))
1866 (comment-end
1867 (if (or (equal comment-end "")
1868 (string-match "^[ \t]" comment-end))
1869 comment-end
1870 (concat " " comment-end))))))
2182 (forward-line)