Function: f90-looking-at-do

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

Signature

(f90-looking-at-do)

Documentation

Return ("do" NAME) if a do statement starts after point.

NAME is nil if the statement has no label.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/f90.el.gz
(defsubst f90-looking-at-do ()
  "Return (\"do\" NAME) if a do statement starts after point.
NAME is nil if the statement has no label."
  (if (looking-at "\\(\\(\\(?:\\sw\\|\\s_\\)+\\)[ \t]*:\\)?[ \t]*\\(do\\)\\_>")
      (list (match-string 3) (match-string 2))))