From: morioka <morioka>
Date: Mon, 19 Oct 1998 18:39:53 +0000 (+0000)
Subject: (std11-qtext-regexp): Use `eval-when-compile'; don't use
X-Git-Tag: flim-1_11_1~13
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f1212f1c66079fae22cf10aa82b7b65bdcf1e63c;p=elisp%2Fflim.git

(std11-qtext-regexp): Use `eval-when-compile'; don't use
`char-list-to-string'.
(std11-quoted-string-regexp): Use `eval-when-compile'.
Use `def-edebug-spec' to define edebug-form-spec of mm-define-method;
fix definition of edebug-form-spec of mm-define-method.
---

diff --git a/mime-def.el b/mime-def.el
index f4bfe65..168d36b 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -99,12 +99,14 @@
 (defconst std11-quoted-pair-regexp "\\\\.")
 (defconst std11-non-qtext-char-list '(?\" ?\\ ?\r ?\n))
 (defconst std11-qtext-regexp
-  (concat "[^" (char-list-to-string std11-non-qtext-char-list) "]"))
+  (eval-when-compile
+    (concat "[^" (apply #'string std11-non-qtext-char-list) "]")))
 (defconst std11-quoted-string-regexp
-  (concat "\""
-	  (regexp-*
-	   (regexp-or std11-qtext-regexp std11-quoted-pair-regexp))
-	  "\""))
+  (eval-when-compile
+    (concat "\""
+	    (regexp-*
+	     (regexp-or std11-qtext-regexp std11-quoted-pair-regexp))
+	    "\"")))
 
 
 ;;; @ about MIME
@@ -407,8 +409,13 @@ specialized parameter.  (car (car ARGS)) is name of variable and (nth
 	 ))))
 
 (put 'mm-define-method 'lisp-indent-function 'defun)
-(put 'mm-define-method 'edebug-form-spec
-     '(&define name ((arg symbolp) &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))
 
 (defsubst mm-arglist-to-arguments (arglist)
   (let (dest)