Function: vhdl-mark-defun

vhdl-mark-defun is an interactive and byte-compiled function defined in vhdl-mode.el.gz.

Signature

(vhdl-mark-defun)

Documentation

Put mark at end of this "defun", point at beginning.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/vhdl-mode.el.gz
(defun vhdl-mark-defun ()
  "Put mark at end of this \"defun\", point at beginning."
  (interactive)
  (let ((case-fold-search t))
    (push-mark)
    (vhdl-beginning-of-defun)
    (push-mark)
    (if (not (looking-at "block\\|process\\|procedural"))
	(re-search-forward "\\bis\\b"))
    (vhdl-forward-sexp)
    (exchange-point-and-mark)))