Function: f90-looking-at-end-critical

f90-looking-at-end-critical is a byte-compiled function defined in f90.el.gz.

Signature

(f90-looking-at-end-critical)

Documentation

Return non-nil if a critical or block block ends after point.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/f90.el.gz
(defsubst f90-looking-at-end-critical ()
  "Return non-nil if a critical or block block ends after point."
  (if (looking-at "end[ \t]*\\(critical\\|block\\)\\_>")
      (or (not (string-equal "block" (match-string 1)))
          (save-excursion
            (skip-chars-forward " \t")
            (not (looking-at "data\\_>"))))))