Function: verilog-mark-defun

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

Signature

(verilog-mark-defun)

Documentation

Mark the current Verilog function (or procedure).

This puts the mark at the end, and point at the beginning.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/verilog-mode.el.gz
(defun verilog-mark-defun ()
  "Mark the current Verilog function (or procedure).
This puts the mark at the end, and point at the beginning."
  (interactive)
  (let (found)
    (if (featurep 'xemacs)
        (progn
          (push-mark)
          (verilog-end-of-defun)
          (push-mark)
          (verilog-beg-of-defun)
          (if (fboundp 'zmacs-activate-region)
              (zmacs-activate-region)))
      ;; GNU Emacs
      (when (verilog-beg-of-defun)
        (setq found (point))
        (verilog-end-of-defun)
        (end-of-line)
        (push-mark)
        (goto-char found)
        (beginning-of-line)
        (setq mark-active t)))))