From c954de990344ac7ed7cacf94a39fd604167a111d Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 28 Oct 1998 08:15:35 +0000 Subject: [PATCH] Avoid compile error when ediff is missing. --- mime-def.el | 28 +++++++++++++++++++++------- 1 file changed, 21 insertions(+), 7 deletions(-) diff --git a/mime-def.el b/mime-def.el index d4a994f..e479011 100644 --- a/mime-def.el +++ b/mime-def.el @@ -402,13 +402,27 @@ specialized parameter. (car (car ARGS)) is name of variable and (nth )))) (put 'mm-define-method 'lisp-indent-function 'defun) -(def-edebug-spec mm-define-method - (&define name ((arg symbolp) - [&rest arg] - [&optional ["&optional" arg &rest arg]] - &optional ["&rest" arg] - ) - def-body)) + +(eval-when-compile + (defmacro eval-module-depended-macro (module definition) + (condition-case nil + (progn + (require (eval module)) + definition) + (error `(eval-after-load ,(symbol-name (eval module)) ',definition)) + )) + ) + +(eval-module-depended-macro + 'edebug + (def-edebug-spec mm-define-method + (&define name ((arg symbolp) + [&rest arg] + [&optional ["&optional" arg &rest arg]] + &optional ["&rest" arg] + ) + def-body)) + ) (defsubst mm-arglist-to-arguments (arglist) (let (dest) -- 1.7.10.4