Function: fortran-numerical-continuation-char

fortran-numerical-continuation-char is a byte-compiled function defined in fortran.el.gz.

Signature

(fortran-numerical-continuation-char)

Documentation

Return a digit for tab-digit style of continuation lines.

If previous line is a tab-digit continuation line, return that digit plus one, otherwise return 1. Zero not allowed.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/fortran.el.gz
(defun fortran-numerical-continuation-char ()
  "Return a digit for tab-digit style of continuation lines.
If previous line is a tab-digit continuation line, return that digit
plus one, otherwise return 1.  Zero not allowed."
  (save-excursion
    (forward-line -1)
    (if (looking-at "\t[1-9]")
        (+ ?1 (% (- (char-after (1+ (point))) ?0) 9))
      ?1)))