Lines Matching defs:indent
38 ;; environment, or to mark, re-indent, or comment-out environments.
108 ;; Added indent-line-function for TAB.
111 ;; v 0.4 -- 1997/02/18 UV Added functions to indent regions for M-C-q,
114 ;; defun and to re-indent or comment-out defuns.
541 (defcustom meta-indent-level 2
587 (defun meta-comment-indent ()
596 (defun meta-indent-line ()
599 (let ((indent (meta-indent-calculate)))
601 (if (/= (current-indentation) indent)
605 (indent-to indent))))
606 (if (< (current-column) indent)
609 (defun meta-indent-calculate ()
629 (- (meta-indent-calculate-last) meta-indent-level))
633 (- (meta-indent-calculate-last) meta-indent-level))
634 (t (meta-indent-calculate-last)))))
636 (defun meta-indent-calculate-last ()
650 (meta-indent-level-count)
655 meta-indent-level)
659 meta-indent-level)
663 (defun meta-indent-level-count ()
679 (setq count (+ count meta-indent-level)))
682 (setq count (- count meta-indent-level)))
685 (setq count (+ count meta-indent-level)))
687 (setq count (- count meta-indent-level)))
766 (defun meta-indent-region (beg end)
769 (indent-region beg end nil))
771 (defun meta-indent-buffer ()
775 (indent-region (point-min) (point-max) nil)))
777 (defun meta-indent-defun ()
784 (indent-region beg end nil))))
849 (define-key meta-mode-map "\t" 'meta-indent-line)
850 (define-key meta-mode-map "\C-m" 'reindent-then-newline-and-indent)
861 (define-key meta-mode-map "\M-\C-q" 'meta-indent-defun)
862 (define-key meta-mode-map "\C-c\C-qe" 'meta-indent-defun)
863 (define-key meta-mode-map "\C-c\C-qr" 'meta-indent-region)
864 (define-key meta-mode-map "\C-c\C-qb" 'meta-indent-buffer)
885 ["Indent Line" meta-indent-line t]
886 ["Indent Environment" meta-indent-defun t]
887 ["Indent Region" meta-indent-region
889 ["Indent Buffer" meta-indent-buffer t]
965 (make-local-variable 'comment-indent-function)
966 (setq comment-indent-function 'meta-comment-indent)
967 (make-local-variable 'indent-line-function)
968 (setq indent-line-function 'meta-indent-line)
969 ;; No need to define a mode-specific 'indent-region-function.
970 ;; Simply use the generic 'indent-region and 'comment-region.