From: morioka <morioka>
Date: Wed, 26 May 1999 09:50:46 +0000 (+0000)
Subject: (eval-module-depended-macro): Abolished.
X-Git-Tag: chao-1_13_0~11
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=67667aef7a2a3546b3ef9445f4bddd38380fb91a;p=elisp%2Fflim.git

(eval-module-depended-macro): Abolished.
Use `def-edebug-spec' directly.
---

diff --git a/mime-def.el b/mime-def.el
index 8b03605..89a696d 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -249,28 +249,16 @@
 		(cdr args)))
     `(luna-define-method ,name ,args ,@body)
     ))
-(put 'mm-define-method 'lisp-indent-function 'defun)
 
-(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))
-      ))
-  )
+(put 'mm-define-method 'lisp-indent-function 'defun)
 
-(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))
- )
+(def-edebug-spec mm-define-method
+  (&define name ((arg symbolp)
+		 [&rest arg]
+		 [&optional ["&optional" arg &rest arg]]
+		 &optional ["&rest" arg]
+		 )
+	   def-body))
 
 
 ;;; @ message structure