Function: defun-mh

defun-mh is an autoloaded macro defined in mh-acros.el.gz.

This macro is obsolete since 29.1; use defun instead.

Signature

(defun-mh 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/mh-e/mh-acros.el.gz
;;;###mh-autoload
(defmacro defun-mh (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 (obsolete defun "29.1")
           (indent defun) (doc-string 4)
           (debug (&define name symbolp sexp def-body)))
  `(defalias ',name
     (if (fboundp ',function)
         ',function
       (lambda ,arg-list ,@body))))