(mime-library-product): Update to 1.13.1.

[elisp/flim.git] / mime-def.el

diff --git a/mime-def.el b/mime-def.el
index 5c706f0..a8528e2 100644 (file)
--- a/mime-def.el
+++ b/mime-def.el
@@ -35,7 +35,7 @@
 (eval-when-compile (require 'cl))      ; list*
 
 (eval-and-compile
-  (defconst mime-library-product ["CLIME" (1 13 0) "\e$B?7K!N4;{\e(B"]
+  (defconst mime-library-product ["CLIME" (1 13 1) "\e$B0BEH\e(B"]
     "Product name, version number and code name of MIME-library package.")
   )
 
@@ -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)