[Emacs-diffs] master da18508 4/4: Quieten defun-mh compilation

[Glenn Morris]

branch: master
commit da185080290e5f3c9bc589a6ebb87e136894a020
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>

    Quieten defun-mh compilation
    
    * lisp/mh-e/mh-acros.el (defun-mh):
    Rewrite so the compiler can see it always defines target function.
---
 lisp/mh-e/mh-acros.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/mh-e/mh-acros.el b/lisp/mh-e/mh-acros.el
index ac31127..fb8a16b 100644
--- a/lisp/mh-e/mh-acros.el
+++ b/lisp/mh-e/mh-acros.el
@@ -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)