Lines Matching +defs:extra +defs:indent
59 ;; * Probably. Make `indent-region' faster, especially in actions. ELP
176 (put 'save-buffer-state-x 'lisp-indent-function 0)
271 (defcustom antlr-indent-comment 'tab
275 they are only changed by \\[antlr-indent-command]."
288 set `tab-width' and `indent-tabs-mode'. This is useful to support both
298 (defcustom antlr-indent-style "java"
305 (defcustom antlr-indent-item-regexp
308 See `antlr-indent-line' and command \\[antlr-indent-command]."
312 (defcustom antlr-indent-at-bol-alist
322 part of a header action, indent the line at column 0 instead according
323 to the normal rules of `antlr-indent-line'."
414 (("language" antlr-language-option-extra
424 ("namespace" antlr-c++-mode-extra
427 ("namespaceStd" antlr-c++-mode-extra
430 ("namespaceAntlr" antlr-c++-mode-extra
433 ("genHashLines" antlr-c++-mode-extra
490 ("namespace" antlr-c++-mode-extra
493 ("namespaceStd" antlr-c++-mode-extra
496 ("namespaceAntlr" antlr-c++-mode-extra
499 ("genHashLines" antlr-c++-mode-extra
698 (define-key map "\t" 'antlr-indent-command)
754 ["Indent Region" indent-region
1037 (put 'antlr-with-syntax-table 'lisp-indent-function 1)
1974 (progn (insert "\n") (antlr-indent-line))
1985 (antlr-indent-line))))
1998 (antlr-indent-line)
2001 (antlr-indent-line)
2003 (antlr-indent-line))
2052 (defun antlr-language-option-extra (phase &rest dummies)
2068 (defun antlr-c++-mode-extra (phase option &rest dummies)
2373 (defun antlr-indent-line ()
2380 - minus 1 if `antlr-indent-item-regexp' matches the beginning of the
2383 Lines inside block comments are indented by `c-indent-line' according to
2384 `antlr-indent-comment'.
2387 area are indented by `c-indent-line'.
2390 equals to a key in `antlr-indent-at-bol-alist' and the line starting at
2393 For the initialization of `c-basic-offset', see `antlr-indent-style' and,
2398 bol boi indent syntax cc-syntax)
2411 (setq indent nil)) ; block-comments, strings, (comments)
2415 (setq indent 0)) ; in rule header
2417 (setq indent 2)) ; in rule body
2421 (setq indent (if (> (point) boi) 1 0))))) ; in exception part?
2425 (when (and indent (> syntax 0))
2427 (setq indent nil))
2428 ((and (= indent 0)
2429 (assq antlr-language antlr-indent-at-bol-alist)
2431 antlr-indent-at-bol-alist))))
2439 (setq indent nil))
2441 ;;; ((= indent 1) ; exception part => use cc-mode
2442 ;;; (setq indent nil))
2448 ;;; (setq indent nil)))))
2449 ;; compute the corresponding indentation and indent --------------------
2450 (if (null indent)
2455 (if (eq syntax 'string) nil (eq antlr-indent-comment t)))
2456 (c-indent-line cc-syntax)))
2461 (incf indent (antlr-syntactic-context))
2462 (and (> indent 0) (looking-at antlr-indent-item-regexp) (decf indent))
2463 (setq indent (* indent c-basic-offset)))
2464 ;; the usual major-mode indent stuff ---------------------------------
2466 (unless (= (current-column) indent)
2469 (indent-to indent))
2475 (defun antlr-indent-command (&optional arg)
2478 command, insert ARG tabs or spaces according to `indent-tabs-mode'.
2479 Otherwise, indent the current line with `antlr-indent-line'."
2481 (if (or arg (eq last-command 'antlr-indent-command))
2483 (let ((antlr-indent-comment (and antlr-indent-comment t))) ; dynamic
2484 (antlr-indent-line))))
2487 "Insert the character you type and indent the current line.
2488 Insert the character like `self-insert-command' and indent the current
2489 line as `antlr-indent-command' does. Do not indent the line if
2499 `antlr-indent-item-regexp'."
2511 (antlr-indent-line)))
2527 c-extra-toplevel-key c-C++-extra-toplevel-key
2616 (c-basic-common-init antlr-language (or antlr-indent-style "gnu"))
2620 (make-local-variable 'indent-line-function)
2621 (make-local-variable 'indent-region-function)
2625 (setq indent-line-function 'antlr-indent-line
2626 indent-region-function nil) ; too lazy
2662 indent-tabs-mode (cadddr elem)