# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 965811766 0
# Node ID b374051343170ac511ec1a382d9c424e2132a147
# Parent  f0f3b74ad28eb439e9c6815b4dc07518ff7b422f
(ccl-embed-data): Make ccl-program-vector
longer if necessary.
(ccl-embed-code): Call ccl-embed-data to store CODE in
ccl-program-vector.

diff -r f0f3b74ad28e -r b37405134317 lisp/international/ccl.el
--- a/lisp/international/ccl.el	Wed Aug 09 08:59:00 2000 +0000
+++ b/lisp/international/ccl.el	Wed Aug 09 09:02:46 2000 +0000
@@ -246,6 +246,13 @@
 (defun ccl-embed-data (data &optional ic)
   (if ic
       (aset ccl-program-vector ic data)
+    (let ((len (length ccl-program-vector)))
+      (if (>= ccl-current-ic len)
+	  (let ((new (make-vector (* len 2) nil)))
+	    (while (> len 0)
+	      (setq len (1- len))
+	      (aset new len (aref ccl-program-vector len)))
+	    (setq ccl-program-vector new))))
     (aset ccl-program-vector ccl-current-ic data)
     (setq ccl-current-ic (1+ ccl-current-ic))))
 
@@ -302,8 +309,7 @@
 			  (logior (ash (get reg2 'ccl-register-number) 8)
 				  (ash data 11))
 			(ash data 8)))))
-    (aset ccl-program-vector ccl-current-ic code)
-    (setq ccl-current-ic (1+ ccl-current-ic))))
+    (ccl-embed-data code)))
 
 ;; extended ccl command format
 ;;	|- 14-bit -|- 3-bit --|- 3-bit --|- 3-bit --|- 5-bit -|