Function: fortran-mark-do

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

Signature

(fortran-mark-do)

Documentation

Put mark at end of Fortran DO [WHILE]-ENDDO 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-do ()
  "Put mark at end of Fortran DO [WHILE]-ENDDO construct, point at beginning.
The marks are pushed."
  (interactive)
  (let (enddo-point do-point)
    (if (setq enddo-point (fortran-end-do))
        (if (not (setq do-point (fortran-beginning-do)))
            (message "No matching do.")
          (goto-char enddo-point)
          (push-mark)
          (goto-char do-point)))))