Function: opascal-indent-line

opascal-indent-line is an interactive and byte-compiled function defined in opascal.el.gz.

Signature

(opascal-indent-line)

Documentation

Indent the current line according to the current language construct.

If before the indent, the point is moved to the indent.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/opascal.el.gz
(defun opascal-indent-line ()
  "Indent the current line according to the current language construct.
If before the indent, the point is moved to the indent."
  (interactive)
  (save-match-data
    (let ((marked-point (point-marker))) ; Maintain our position reliably.
      (beginning-of-line)
      (skip-chars-forward opascal-space-chars)
      (let ((new-indent (opascal-corrected-indentation)))
        (if (< marked-point (point))
            ;; If before the indent column, then move to it.
            (set-marker marked-point (point)))
        ;; Advance our marked point after inserted spaces.
        (set-marker-insertion-type marked-point t)
        (indent-line-to new-indent)
        (goto-char marked-point)
        (set-marker marked-point nil)))))