Function: f90-current-indentation

f90-current-indentation is a byte-compiled function defined in f90.el.gz.

Signature

(f90-current-indentation)

Documentation

Return indentation of current line.

Line-numbers are considered whitespace characters.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/f90.el.gz
;; GM this is not right, eg a continuation line starting with a number.
;; Need f90-code-start-position function.
;; And yet, things seems to work with this...
;; cf f90-indent-line
;;     (beginning-of-line)           ; digits after & \n are not line-nos
;;     (if (not (save-excursion (and (f90-previous-statement)
;;                                   (f90-line-continued))))
;;         (f90-indent-line-no)
(defsubst f90-current-indentation ()
  "Return indentation of current line.
Line-numbers are considered whitespace characters."
  (save-excursion (beginning-of-line) (skip-chars-forward " \t0-9")))