From: morioka <morioka>
Date: Wed, 28 Oct 1998 08:15:35 +0000 (+0000)
Subject: Avoid compile error when ediff is missing.
X-Git-Tag: flim-1_11-199811302358~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c954de990344ac7ed7cacf94a39fd604167a111d;p=elisp%2Fflim.git

Avoid compile error when ediff is missing.
---

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)