Commit da185080 authored by Glenn Morris's avatar Glenn Morris

Quieten defun-mh compilation

* lisp/mh-e/mh-acros.el (defun-mh):
Rewrite so the compiler can see it always defines target function.
parent 321e1a61
......@@ -90,9 +90,10 @@ loads \"cl\" appropriately."
"Create function NAME.
If FUNCTION exists, then NAME becomes an alias for FUNCTION.
Otherwise, create function NAME with ARG-LIST and BODY."
`(if (fboundp ',function)
(defalias ',name ',function)
(defun ,name ,arg-list ,@body)))
`(defalias ',name
(if (fboundp ',function)
',function
(lambda ,arg-list ,@body))))
(put 'defun-mh 'lisp-indent-function 'defun)
(put 'defun-mh 'doc-string-elt 4)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment