Lines Matching +defs:auto +defs:newline
133 (defvar compile-auto-highlight)
168 (defcustom ada-auto-case t
202 `ada-capitalize-word' or `ada-no-auto-case'."
207 (const ada-no-auto-case))
233 (const ada-no-auto-case))
244 (const ada-no-auto-case))
276 A nil value means do not auto-indent comments."
401 (defcustom ada-tab-policy 'indent-auto
405 `indent-auto' : use indentation functions in this file.
407 :type '(choice (const indent-auto)
1091 (add-to-list 'auto-mode-alist
1093 (add-to-list 'auto-mode-alist
1118 Indent line, insert newline and indent the new line. '\\[newline-and-indent]'
1158 (set (make-local-variable 'require-final-newline) mode-require-final-newline)
1212 (set (make-local-variable 'compile-auto-highlight) 40)
1399 (if ada-auto-case
1421 ;; auto-casing
1423 ;; functions to auto-case identifiers, keywords, ...
1494 When auto-casing a word, this substring will be special-cased, unless the
1618 The auto-casing is done according to the value of `ada-case-identifier'
1688 (if ada-auto-case
1721 ;; Else, no auto-casing
1765 (defun ada-no-auto-case (&optional arg)
1767 This function can be used for the auto-casing variables in Ada mode, to
1768 adapt to unusal auto-casing schemes. Since it does nothing, you can for
1770 auto-casing for identifiers, whereas keywords have to be lower-cased.
1771 See also `ada-auto-case' to disable auto casing altogether."
2102 ;; no => insert ';' and newline and indent
2104 (newline)
2108 ;; if anything follows, except semicolon, newline, is or return
2111 (ada-indent-newline-indent))
2167 (defun ada-indent-newline-indent ()
2168 "Indent the current line, insert a newline and then indent the new line."
2171 (newline)
2174 (defun ada-indent-newline-indent-conditional ()
2175 "Insert a newline and indent it.
2179 (newline)
4262 ((eq ada-tab-policy 'indent-auto)
4274 ((eq ada-tab-policy 'indent-auto) (error "Not implemented"))
4564 (define-key ada-mode-map "\C-j" 'ada-indent-newline-indent-conditional)
4565 (define-key ada-mode-map "\C-m" 'ada-indent-newline-indent-conditional)
4683 ["Auto Casing" (setq ada-auto-case (not ada-auto-case))
4684 :style toggle :selected ada-auto-case]
4962 ;; In Emacs <= 20.2 and XEmacs <=20.4, there is a bug, and a newline is
5391 (ada-indent-newline-indent)
5393 (ada-indent-newline-indent)
5397 (ada-indent-newline-indent)))
5399 (ada-indent-newline-indent)
5403 (ada-indent-newline-indent)
5405 (ada-indent-newline-indent)
5488 (newline)
5518 ;; Setup auto-loading of the other Ada mode files.