diff options
| author | Glenn Morris <rgm@gnu.org> | 2018-03-01 13:11:29 -0500 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2018-03-01 13:11:29 -0500 |
| commit | da185080290e5f3c9bc589a6ebb87e136894a020 (patch) | |
| tree | 1d99e8f3afe281861070cb38431ce9cfa2d6da1a /lisp/mh-e | |
| parent | 321e1a61e12bfb24554e0795a57fe77b49706635 (diff) | |
| download | emacs-da185080290e5f3c9bc589a6ebb87e136894a020.tar.gz | |
Quieten defun-mh compilation
* lisp/mh-e/mh-acros.el (defun-mh):
Rewrite so the compiler can see it always defines target function.
Diffstat (limited to 'lisp/mh-e')
| -rw-r--r-- | lisp/mh-e/mh-acros.el | 7 |
1 files 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) |