File tamago-5.0.7.1-emacs30.1.patch of Package tamago

Index: tamago-tsunagi-5.0.7.1/egg/wnn.el
===================================================================
--- tamago-tsunagi-5.0.7.1.orig/egg/wnn.el
+++ tamago-tsunagi-5.0.7.1/egg/wnn.el
@@ -368,7 +368,7 @@ by ':' and digit N."
 (defun wnnenv-create (proc env-id &optional server-type wnn-version
 		      backend tankan name)
   (if name
-      (set (setq name (make-symbol name)) (make-vector 5 nil)))
+      (set (setq name (make-symbol name)) (make-vector 5 0)))
   (vector proc env-id server-type wnn-version backend tankan name
 	  (make-vector 2 (WNN-const DIC_RDONLY))))
 
Index: tamago-tsunagi-5.0.7.1/its.el
===================================================================
--- tamago-tsunagi-5.0.7.1.orig/its.el
+++ tamago-tsunagi-5.0.7.1/its.el
@@ -693,8 +693,8 @@ This variable override `its-delete-by-ke
 
 (defun its-map-compaction (map)
   (if its-compaction-enable
-      (let ((its-compaction-hash-table (make-vector 1000 nil))
-	    (its-compaction-integer-table (make-vector 138 nil))
+      (let ((its-compaction-hash-table (make-vector 1000 0))
+	    (its-compaction-integer-table (make-vector 138 0))
 	    (its-compaction-counter-1 1)
 	    (its-compaction-counter-2 0)
 	    (its-compaction-list nil))
@@ -1355,8 +1355,8 @@ Return last state."
   (interactive)
   (its-convert (lambda (str lang) (japanese-katakana str))))
 
-(defconst its-full-half-table (make-vector 100 nil))
-(defconst its-half-full-table (make-vector 100 nil))
+(defconst its-full-half-table (make-vector 100 0))
+(defconst its-half-full-table (make-vector 100 0))
 
 (let ((table '((Japanese
 		(?$B!!(B . ?\ ) (?$B!$(B . ?,)  (?$B!%(B . ?.)  (?$B!"(B . ?,)  (?$B!#(B . ?.)
@@ -1466,7 +1466,7 @@ Return last state."
 		(?$(C#p(B . ?p)  (?$(C#q(B . ?q)  (?$(C#r(B . ?r)  (?$(C#s(B . ?s)  (?$(C#t(B . ?t)
 		(?$(C#u(B . ?u)  (?$(C#v(B . ?v)  (?$(C#w(B . ?w)  (?$(C#x(B . ?x)  (?$(C#y(B . ?y)
 		(?$(C#z(B . ?z))))
-      (hash (make-vector 100 nil))
+      (hash (make-vector 100 0))
       lang pair)
   (while table
     (setq lang (caar table)