Lines Matching +defs:indent +defs:line +defs:function
48 "*Specifies the basic indentation level for `sgml-indent-line'."
52 (defcustom sgml-transformation-function 'identity
53 "*Default value for `skeleton-transformation-function' in SGML mode."
54 :type 'function
57 (put 'sgml-transformation-function 'variable-interactive
58 "aTransformation function: ")
59 (defvaralias 'sgml-transformation 'sgml-transformation-function)
265 (1 (if (match-end 2) sgml-namespace-face font-lock-function-name-face))
266 (2 font-lock-function-name-face nil t))
389 (defun sgml-comment-indent-new-line (&optional soft)
394 (comment-indent-new-line soft)))
396 (defun sgml-mode-facemenu-add-face-function (face end)
399 (setq face (funcall skeleton-transformation-function face))
423 If you like upcased tags, put (setq sgml-transformation-function 'upcase)
433 ;;(make-local-variable 'facemenu-remove-face-function)
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)
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)
455 (newline-and-indent))))
463 (set (make-local-variable 'facemenu-add-face-function)
464 'sgml-mode-facemenu-add-face-function)
468 (set (make-local-variable 'skeleton-transformation-function)
469 sgml-transformation-function))
496 (defun sgml-comment-indent ()
506 ((eq sgml-quick-keys 'indent)
508 (indent-according-to-mode))
552 (buffer-substring (line-beginning-position)
613 ;; through `skeleton-transformation-function' and inserted.
615 ;; the return value of a function, e.g. (identity "str").
623 `skeleton-transformation-function' RET `upcase' RET, or put this
625 (setq sgml-transformation-function 'upcase)"
626 (funcall (or skeleton-transformation-function 'identity)
649 ;; `str' through `skeleton-transformation-function' a second time.
680 (funcall skeleton-transformation-function (car alist)))
685 (insert (funcall skeleton-transformation-function
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."
1050 ;; Don't use narrowing because it screws up auto-indent.
1057 (reindent-then-newline-and-indent))
1059 ;; (indent-region beg end)
1157 By default, parse until we find a start-tag as the first thing on a line.
1159 we just skipped over some element and got to a beginning of line).
1283 (indent-according-to-mode)))))
1297 (defun sgml-calculate-indent (&optional lcon)
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.
1339 ;; We don't know how to indent it. Let's be honest about it.
1348 ;; This is the first attribute: indent.
1363 ;; If possible, align on the previous non-empty text line.
1385 (sgml-calculate-indent
1405 (defun sgml-indent-line ()
1406 "Indent the current line as SGML."
1409 (indent-col
1413 (sgml-calculate-indent))))
1414 (if (null indent-col)
1417 (save-excursion (indent-line-to indent-col))
1418 (indent-line-to indent-col)))))
1420 (defun sgml-guess-indent ()
1476 (define-key map "\C-c\n" 'html-line)
1516 (define-key menu-map "\n" '("Line Break" . html-line))
1693 ("function-name")
1769 ("nobr" . "Text without line break")
1814 browsers have a function to read the source code of the page being seen, so
1857 (setq imenu-create-index-function 'html-imenu-index)
1869 ;; (make-local-variable 'imenu-sort-function)
1870 ;; (setq imenu-sort-function nil) ; sorting the menu defeats the purpose
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."
2002 (funcall skeleton-transformation-function
2007 (funcall skeleton-transformation-function
2022 (funcall skeleton-transformation-function
2027 (funcall skeleton-transformation-function