Function: f90-mark-subprogram

f90-mark-subprogram is an interactive and byte-compiled function defined in f90.el.gz.

Signature

(f90-mark-subprogram)

Documentation

Put mark at end of F90 subprogram, point at beginning, push mark.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/f90.el.gz
(defun f90-mark-subprogram ()
  "Put mark at end of F90 subprogram, point at beginning, push mark."
  (interactive)
  (let ((pos (point)) program)
    (f90-end-of-subprogram)
    (push-mark)
    (goto-char pos)
    (setq program (f90-beginning-of-subprogram))
    (setq mark-active t
          deactivate-mark nil)
    program))