Lines Matching defs:indentation
65 ;; * Even smarter indentation of continuation lines.
66 ;; * A delete-indentation function (M-^) that joins continued lines,
165 "*Function to calculate indentation for a command line in DCL.
171 nil to get the default indentation.
173 INDENT-TYPE is a symbol indicating what kind of indentation should be done.
175 indent the lines indentation should be increased, e.g. after THEN.
176 outdent the lines indentation should be decreased, e.g a line with ENDIF.
177 first-line indentation for the first line in a buffer or SUBROUTINE.
178 CUR-INDENT is the indentation of the preceding command line.
179 EXTRA-INDENT is the default change in indentation for this line
186 If this variable is nil, the indentation is calculated as
197 "*Function to calculate indentation for a continuation line.
203 nil to get the default indentation.
205 If this variable is nil, the indentation is calculated as
309 (define-key dcl-mode-map "\e^" 'dcl-delete-indentation)
310 (define-key dcl-mode-map "\em" 'dcl-back-to-indentation)
345 (define-key dcl-mode-map [menu-bar dcl dcl-delete-indentation]
346 '("Delete indentation" . dcl-delete-indentation))
353 (define-key dcl-mode-map [menu-bar dcl dcl-back-to-indentation]
354 '("Back to indentation" . dcl-back-to-indentation))
502 Variables controlling indentation style and extra features:
505 Extra indentation within blocks.
508 Extra indentation for continued lines.
522 a block of commmand lines that will be given extra indentation.
528 Can be set to a function that customizes indentation for command lines.
534 Can be set to a function that customizes indentation for continued lines.
549 which words trigger electric indentation.
792 (defun dcl-back-to-indentation ()
798 Typing \\[dcl-back-to-indentation] several times in a row will move point to other
808 (if (eq last-command 'dcl-back-to-indentation)
809 (dcl-back-to-indentation-1 (point))
810 (dcl-back-to-indentation-1)))
811 (defun dcl-back-to-indentation-1 (&optional limit)
812 "Helper function for dcl-back-to-indentation"
832 (back-to-indentation)
834 ;; If we already were at the outermost indentation point then we
877 ;;; *** Support for indentation *********************************************
931 (defun dcl-indentation-point ()
934 (dcl-back-to-indentation)
963 ;;; *** Perform indentation *************************************************
972 indentation of command lines.
987 ;; calculate indentation if it's an interesting indent-type,
988 ;; otherwise return nil to get the default indentation
1003 indentation of command lines.
1020 ;; No indentation, this word is `then': +2
1054 Find the indentation of the preceding line and analyze its contents to
1058 Calculate the indentation of the current line, either with the default
1062 If the current line should be outdented, calculate its indentation,
1067 Rules for default indentation:
1073 Look at the first word on the line to see if the indentation should be
1085 indentation should be adjusted again. Save this buffer position as
1116 this-point (dcl-indentation-point))
1142 last-point (dcl-indentation-point))
1144 ;; Examine the line to get current indentation and possibly a
1177 (setq this-point (dcl-indentation-point))
1219 indentation of continuation lines.
1394 Adjusts indentation on the current line. Data lines are not indented."
1436 the lines indentation; otherwise insert a tab."
1486 "Like indent-to, but only indents if indentation would change"
1549 (defun dcl-delete-indentation (&optional arg)
1550 "Join this line to previous like delete-indentation.
1553 (delete-indentation arg)
1573 (let* (;; current lines indentation
1575 (dcl-back-to-indentation)
1577 ;; previous lines indentation
1581 (dcl-back-to-indentation)
1588 (dcl-back-to-indentation)
1622 (dcl-back-to-indentation)
1686 ;; Test this before label indentation to detect a subroutine
1702 ;; Label indentation
1718 (dcl-back-to-indentation)
1723 (dcl-back-to-indentation)
1730 (dcl-back-to-indentation)