Function: f90-indent-to

f90-indent-to is a byte-compiled function defined in f90.el.gz.

Signature

(f90-indent-to COL &optional NO-LINE-NUMBER)

Documentation

Indent current line to column COL.

If optional argument NO-LINE-NUMBER is nil, jump over a possible line-number before indenting.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/f90.el.gz
(defsubst f90-indent-to (col &optional no-line-number)
  "Indent current line to column COL.
If optional argument NO-LINE-NUMBER is nil, jump over a possible
line-number before indenting."
  (beginning-of-line)
  (or no-line-number
      (skip-chars-forward " \t0-9"))
  (delete-horizontal-space)
  ;; Leave >= 1 space after line number.
  (indent-to col (if (zerop (current-column)) 0 1)))