Function: fortran-mark-if

fortran-mark-if is an interactive and byte-compiled function defined in fortran.el.gz.

Signature

(fortran-mark-if)

Documentation

Put mark at end of Fortran IF-ENDIF construct, point at beginning.

The marks are pushed.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/fortran.el.gz
(defun fortran-mark-if ()
  "Put mark at end of Fortran IF-ENDIF construct, point at beginning.
The marks are pushed."
  (interactive)
  (let (endif-point if-point)
    (if (setq endif-point (fortran-end-if))
        (if (not (setq if-point (fortran-beginning-if)))
            (message "No matching if.")
          ;; Set mark, move point.
          (goto-char endif-point)
          (push-mark)
          (goto-char if-point)))))