Lines Matching +defs:empty +defs:line
48 "*Specifies the basic indentation level for `sgml-indent-line'."
250 "Regular expression that matches a non-empty start tag.
365 (defvar sgml-empty-tags nil
389 (defun sgml-comment-indent-new-line (&optional soft)
394 (comment-indent-new-line soft)))
434 ;; A start or end tag by itself on a line separates a paragraph.
443 (set (make-local-variable 'indent-line-function) 'sgml-indent-line)
447 (set (make-local-variable 'comment-line-break-function)
448 'sgml-comment-indent-new-line)
552 (buffer-substring (line-beginning-position)
640 ((and (eq v2 t) sgml-xml-mode (member ,str sgml-empty-tags))
749 ;; Ignore empty tags like <foo/>.
775 ;; Ignore empty tags like <foo/>.
833 ;; Delete any resulting empty line. If we didn't kill-sexp,
835 (if (progn (forward-line 0) (looking-at "\\(?:[ \t]*$\\)\n?"))
839 (if (progn (forward-line 0) (looking-at "\\(?:[ \t]*$\\)\n?"))
922 and move to the line in the SGML document that caused it."
937 "Return true if point is at the first non-whitespace character on the line."
1146 (t ; open or empty tag
1150 (sgml-empty-tag-p name))
1151 (setq tag-type 'empty))))))
1157 By default, parse until we find a start-tag as the first thing on a line.
1158 If UNTIL is `empty', return even if the context is empty (i.e.
1159 we just skipped over some element and got to a beginning of line).
1180 (not (if until (eq until 'empty) context))
1242 (if (sgml-empty-tag-p (sgml-tag-name tag-info))
1243 (message "Spurious </%s>: empty tag" (sgml-tag-name tag-info))
1287 (defun sgml-empty-tag-p (tag-name)
1288 "Return non-nil if TAG-NAME is an implicitly empty tag."
1290 (member-ignore-case tag-name sgml-empty-tags)))
1298 "Calculate the column to which this line should be indented.
1311 ;; Go back to previous non-empty line.
1313 (zerop (forward-line -1))
1316 ;; Previous line is inside the string.
1323 ;; Go back to previous non-empty line.
1325 (zerop (forward-line -1))
1329 ;; Previous line is inside the comment.
1363 ;; If possible, align on the previous non-empty text line.
1372 (nreverse (sgml-get-context (if unclosed nil 'empty)))))
1405 (defun sgml-indent-line ()
1406 "Indent the current line as SGML."
1417 (save-excursion (indent-line-to indent-col))
1418 (indent-line-to indent-col)))))
1439 (let ((empty nil)
1444 (push (match-string-no-properties 1) empty))
1447 (setq empty (sort (mapcar 'downcase empty) 'string<))
1449 (list empty unclosed)))
1476 (define-key map "\C-c\n" 'html-line)
1516 (define-key menu-map "\n" '("Line Break" . html-line))
1769 ("nobr" . "Text without line break")
1859 (set (make-local-variable 'sgml-empty-tags)
1875 "*A regular expression matching a head line to be added to the menu.
1891 (line-beginning-position))
1961 (define-skeleton html-line
1962 "HTML line break tag."