(TopLevel): Require 'cl when compiling.

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

diff --git a/mime-def.el b/mime-def.el
index c0bccea..53c2dc1 100644 (file)
--- a/mime-def.el
+++ b/mime-def.el
@@ -27,7 +27,7 @@
 (require 'mcharset)
 
 (eval-and-compile
-  (defconst mime-library-product ["FLIM" (1 12 2) "Kuj\e.D\8eò"]
+  (defconst mime-library-product ["FLIM" (1 12 6) "Family-K\e.D\8eòenmae"]
     "Product name, version number and code name of MIME-library package.")
   )
 
@@ -443,7 +443,7 @@ If ARGS is specified, NAME is defined as a generic function for the
 service."
   `(progn
      (add-to-list 'mel-service-list ',name)
-     (defvar ,(intern (format "%s-obarray" name)) (make-vector 1 nil))
+     (defvar ,(intern (format "%s-obarray" name)) (make-vector 7 0))
      ,@(if args
           `((defun ,name ,args
               ,@rest