Function: fortran-looking-at-if-then

fortran-looking-at-if-then is a byte-compiled function defined in fortran.el.gz.

Signature

(fortran-looking-at-if-then)

Documentation

Return non-nil if at the start of a line with an IF ... THEN statement.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/fortran.el.gz
(defun fortran-looking-at-if-then ()
  "Return non-nil if at the start of a line with an IF ... THEN statement."
  ;; cf f90-looking-at-if-then.
  (let ((p (point))
        (i (fortran-beginning-if)))
    (if i
        (save-excursion
          (goto-char i)
          (= (line-beginning-position) p)))))