From: morioka <morioka>
Date: Thu, 19 Aug 1999 13:02:04 +0000 (+0000)
Subject: (mm-define-backend): Don't use bare lambda.
X-Git-Tag: clime-1_13_0~5
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c6bfc7bfc63c4250c6eee1f43d050c1916ac6955;p=elisp%2Fflim.git

(mm-define-backend): Don't use bare lambda.
(mel-define-backend): Likewise.
(mel-define-method): Likewise.
---

diff --git a/mime-def.el b/mime-def.el
index 5c706f0..43ab791 100644
--- a/mime-def.el
+++ b/mime-def.el
@@ -268,9 +268,10 @@
 
 (defmacro mm-define-backend (type &optional parents)
   (` (luna-define-class (, (mm-expand-class-name type))
-			(, (nconc (mapcar (lambda (parent)
-					    (mm-expand-class-name parent)
-					    )
+			(, (nconc (mapcar (function
+					   (lambda (parent)
+					     (mm-expand-class-name parent)
+					     ))
 					  parents)
 				  '(mime-entity))))))
 
@@ -380,9 +381,10 @@ service."
 If PARENTS is specified, TYPE inherits PARENTS.
 Each parent must be backend name (string)."
   (cons 'progn
-	(mapcar (lambda (parent)
-		  (` (mel-copy-backend (, parent) (, type)))
-		  )
+	(mapcar (function
+		 (lambda (parent)
+		   (` (mel-copy-backend (, parent) (, type)))
+		   ))
 		parents)))
 
 (defmacro mel-define-method (name args &rest body)
@@ -395,8 +397,9 @@ and (nth 1 (car (last ARGS))) is name of backend (encoding)."
     (` (progn
 	 (mel-define-service (, name))
 	 (fset (intern (, class) (, (intern (format "%s-obarray" name))))
-	       (lambda (, (butlast args))
-		 (,@ body)))))))
+	       (function
+		(lambda (, (butlast args))
+		  (,@ body))))))))
 
 (put 'mel-define-method 'lisp-indent-function 'defun)