Lines Matching +defs:forward +defs:comment
77 ?- Makes -- in text start a comment.
100 (define-key map "\C-c\C-f" 'sgml-skip-tag-forward)
101 (define-key map [?\C-c right] 'sgml-skip-tag-forward)
133 (define-key menu-map [sgml-skip-tag-forward]
134 '("Forward Tag" . sgml-skip-tag-forward))
345 '(("!" . "Empty declaration for comment")
377 (when (re-search-forward
389 (defun sgml-comment-indent-new-line (&optional soft)
390 (let ((comment-start "-- ")
391 (comment-start-skip "\\(<!\\)?--[ \t]*")
392 (comment-end " --")
393 (comment-style 'plain))
394 (comment-indent-new-line soft)))
444 (set (make-local-variable 'comment-start) "<!-- ")
445 (set (make-local-variable 'comment-end) " -->")
446 (set (make-local-variable 'comment-indent-function) 'sgml-comment-indent)
447 (set (make-local-variable 'comment-line-break-function)
448 'sgml-comment-indent-new-line)
472 (set (make-local-variable 'comment-start-skip) "\\(?:<!\\)?--[ \t]*")
473 (set (make-local-variable 'comment-end-skip) "[ \t]*--\\([ \t\n]*>\\)?")
496 (defun sgml-comment-indent ()
497 (if (looking-at "--") comment-column 0))
634 (("") -1 '(undo-boundary) (identity "<")) | ; see comment above
720 (forward-char))
753 (forward-char 1)
757 (defun sgml-skip-tag-forward (arg)
768 (skip-chars-forward "^<>")
778 (forward-list 1)
780 ;; FIXME: This re-search-forward will mistakenly match
782 (while (and (re-search-forward re nil t)
786 (sgml-skip-tag-forward 1))
791 (forward-list 1))
820 (forward-list 1)
830 (when (and (sgml-skip-tag-forward 1)
835 (if (progn (forward-line 0) (looking-at "\\(?:[ \t]*$\\)\n?"))
839 (if (progn (forward-line 0) (looking-at "\\(?:[ \t]*$\\)\n?"))
874 (while (re-search-forward sgml-tag-name-re nil t)
885 (progn (forward-list) (point))
911 (forward-list))))
945 TYPE is one of `string', `comment', `tag', `cdata', or `text'.
961 (skip-chars-forward "^<" pos)
970 (unless (search-forward "]]>" pos 'move)
979 ((nth 4 state) (cons 'comment (nth 8 state)))
1025 (while (re-search-forward
1030 (while (re-search-forward "[&<>]" nil t)
1053 (while (re-search-forward "<" end t)
1058 (forward-sexp 1)))
1073 (point) (progn (skip-syntax-forward "w_") (point))))
1105 (forward-sexp)
1114 (forward-char -1))))
1117 ((sgml-looking-back-at "--") ; comment
1118 (setq tag-type 'comment
1141 (forward-char 1)
1270 the current start-tag or the current comment or the current cdata, ..."
1273 (comment (insert " -->"))
1302 ;; Indent comment-start markers inside <!-- just like comment-end markers.
1306 (setq lcon (cons 'comment (+ (cdr lcon) 2))))
1313 (zerop (forward-line -1))
1321 (comment
1325 (zerop (forward-line -1))
1329 ;; Previous line is inside the comment.
1330 (skip-chars-forward " \t")
1333 (search-forward "--")
1336 (forward-char 2) (skip-chars-forward " \t"))
1344 (skip-chars-forward "^ \t\n") ;Skip tag name.
1345 (skip-chars-forward " \t")
1354 (forward-sexp 1)
1355 (skip-chars-forward " \t"))
1386 (cons (if (memq (sgml-tag-type (car context)) '(comment cdata))
1392 (skip-chars-forward " \t\n")
1427 (if (re-search-forward "^\\([ \t]+\\)<" 500 'noerror)
1441 (while (re-search-forward "<!ELEMENT[ \t\n]+\\([^ \t\n]+\\)[ \t\n]+[-O][ \t\n]+\\([-O]\\)[ \t\n]+\\([^ \t\n]+\\)" nil t)
1691 ("comment")
1885 (while (re-search-forward html-imenu-regexp nil t)
1998 "<input type=\"" (identity "checkbox") ; see comment above about identity
2018 "<input type=\"" (identity "radio") ; see comment above about identity