From da185080290e5f3c9bc589a6ebb87e136894a020 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 1 Mar 2018 13:11:29 -0500 Subject: [PATCH] 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 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) -- 2.39.5