From 67667aef7a2a3546b3ef9445f4bddd38380fb91a Mon Sep 17 00:00:00 2001 From: morioka Date: Wed, 26 May 1999 09:50:46 +0000 Subject: [PATCH] (eval-module-depended-macro): Abolished. Use `def-edebug-spec' directly. --- mime-def.el | 28 ++++++++-------------------- 1 file changed, 8 insertions(+), 20 deletions(-) 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 -- 1.7.10.4