Function: defmacro-mh

defmacro-mh is an autoloaded macro defined in mh-acros.el.

Signature

(defmacro-mh NAME MACRO ARG-LIST &rest BODY)

Documentation

Create macro NAME.

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

Source Code

;; Defined in /usr/src/emacs/lisp/mh-e/mh-acros.el
;;;###mh-autoload
(defmacro defmacro-mh (name macro arg-list &rest body)
  "Create macro NAME.
If MACRO exists, then NAME becomes an alias for MACRO.
Otherwise, create macro NAME with ARG-LIST and BODY."
  (declare (indent defun) (doc-string 4)
           (debug (&define name symbolp sexp def-body)))
  (let ((defined-p (fboundp macro)))
    (if defined-p
        `(defalias ',name ',macro)
      `(defmacro ,name ,arg-list ,@body))))