Function: fortran-check-end-prog-re

fortran-check-end-prog-re is a byte-compiled function defined in fortran.el.gz.

Signature

(fortran-check-end-prog-re)

Documentation

Check a preliminary match against fortran-end-prog-re.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/fortran.el.gz
(defun fortran-check-end-prog-re ()
  "Check a preliminary match against `fortran-end-prog-re'."
  ;; Having got a possible match for the subprogram end, we need a
  ;; match of whitespace, avoiding possible column 73+ stuff.
  (save-match-data
    (string-match "^\\s-*\\(\\'\\|\\s<\\)"
                  (buffer-substring (match-end 0)
                                    (min (line-end-position)
                                         (+ fortran-line-length
                                            (line-beginning-position)))))))