Function: defun-gmm

defun-gmm is a macro defined in gmm-utils.el.gz.

Signature

(defun-gmm NAME FUNCTION ARG-LIST &rest BODY)

Documentation

Create function NAME.

If FUNCTION exists, then NAME becomes an alias for FUNCTION. Otherwise, create function NAME with ARG-LIST and BODY.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gmm-utils.el.gz
(defmacro defun-gmm (name function arg-list &rest body)
  "Create function NAME.
If FUNCTION exists, then NAME becomes an alias for FUNCTION.
Otherwise, create function NAME with ARG-LIST and BODY."
  (declare (indent defun))
  (let ((defined-p (fboundp function)))
    (if defined-p
        `(defalias ',name ',function)
      `(defun ,name ,arg-list ,@body))))