From: Glenn Morris <rgm@gnu.org>
Date: Thu, 1 Mar 2018 18:11:29 +0000 (-0500)
Subject: Quieten defun-mh compilation
X-Git-Tag: emacs-27.0.90~5583
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=da185080290e5f3c9bc589a6ebb87e136894a020;p=emacs.git

Quieten defun-mh compilation

* lisp/mh-e/mh-acros.el (defun-mh):
Rewrite so the compiler can see it always defines target function.
---

diff --git a/lisp/mh-e/mh-acros.el b/lisp/mh-e/mh-acros.el
index ac31127ce64..fb8a16bd81d 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)