[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 167f47d: Fix MH-E not to load cl at runtime (Bug#25
From: |
Mike Kupfer |
Subject: |
[Emacs-diffs] master 167f47d: Fix MH-E not to load cl at runtime (Bug#25552) |
Date: |
Thu, 4 May 2017 19:30:30 -0400 (EDT) |
branch: master
commit 167f47d202c6f68105f6f1e80922d5513d9ec7f4
Author: Mike Kupfer <address@hidden>
Commit: Mike Kupfer <address@hidden>
Fix MH-E not to load cl at runtime (Bug#25552)
* lisp/mh-e/mh-acros.el (defun-mh): Check at runtime, not
compile time, whether the target is bound.
* lisp/mh-e/mh-compat.el: Enable compilation. Pull in
mh-acros at compile time.
Authored-by: Glenn Morris <address@hidden>, Noam Postavsky
<address@hidden>
---
lisp/mh-e/mh-acros.el | 7 +++----
lisp/mh-e/mh-compat.el | 3 +--
2 files changed, 4 insertions(+), 6 deletions(-)
diff --git a/lisp/mh-e/mh-acros.el b/lisp/mh-e/mh-acros.el
index 0c89efb..d424247 100644
--- a/lisp/mh-e/mh-acros.el
+++ b/lisp/mh-e/mh-acros.el
@@ -90,10 +90,9 @@ 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."
- (let ((defined-p (fboundp function)))
- (if defined-p
- `(defalias ',name ',function)
- `(defun ,name ,arg-list ,@body))))
+ `(if (fboundp ',function)
+ (defalias ',name ',function)
+ (defun ,name ,arg-list ,@body)))
(put 'defun-mh 'lisp-indent-function 'defun)
(put 'defun-mh 'doc-string-elt 4)
diff --git a/lisp/mh-e/mh-compat.el b/lisp/mh-e/mh-compat.el
index 3f3990e..099fc9b 100644
--- a/lisp/mh-e/mh-compat.el
+++ b/lisp/mh-e/mh-compat.el
@@ -40,7 +40,7 @@
;; Items are listed alphabetically (except for mh-require which is
;; needed sooner it would normally appear).
-(require 'mh-acros)
+(eval-when-compile (require 'mh-acros))
(mh-do-in-gnu-emacs
(defalias 'mh-require 'require))
@@ -374,7 +374,6 @@ XEmacs."
(provide 'mh-compat)
;; Local Variables:
-;; no-byte-compile: t
;; indent-tabs-mode: nil
;; sentence-end-double-space: nil
;; End:
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 167f47d: Fix MH-E not to load cl at runtime (Bug#25552),
Mike Kupfer <=