Function: meta-comment-defun

meta-comment-defun is an interactive and byte-compiled function defined in meta-mode.el.gz.

Signature

(meta-comment-defun &optional ARG)

Documentation

Comment out current environment as Metafont or MetaPost source.

With prefix argument, uncomment the environment. The environment used is the one that contains point or follows point.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/meta-mode.el.gz
(defun meta-comment-defun (&optional arg)
  "Comment out current environment as Metafont or MetaPost source.
With prefix argument, uncomment the environment.
The environment used is the one that contains point or follows point."
  (interactive "P")
  (save-excursion
    (let* ((end (if (meta-end-of-defun) (point) (point-max)))
           (beg (if (meta-beginning-of-defun) (point) (point-min))))
      (comment-region beg end arg))))