# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 985954286 0
# Node ID 416e07ad047ebe05b88ae3682d9dc05bf6b7f17e
# Parent  a2589ccb991ee4900909c4cd683771ea5b01e630
(encoded-kbd-self-insert-ccl):
Reduce making temporary vector (suggested by by Dave Love).

diff -r a2589ccb991e -r 416e07ad047e lisp/international/encoded-kb.el
--- a/lisp/international/encoded-kb.el	Fri Mar 30 12:10:54 2001 +0000
+++ b/lisp/international/encoded-kb.el	Fri Mar 30 12:11:26 2001 +0000
@@ -238,11 +238,11 @@
   (interactive)
   (let ((str (char-to-string last-command-char))
 	(ccl (car (aref (coding-system-spec (keyboard-coding-system)) 4)))
-	(vec (make-vector 9 nil))
+	(vec [nil nil nil nil nil nil nil nil nil])
 	result)
     (while (= (length (setq result (ccl-execute-on-string ccl vec str t))) 0)
-      (setq str (format "%s%c" str (read-char-exclusive))
-	    vec (make-vector 9 nil)))
+      (dotimes (i 9) (aset vec i nil))
+      (setq str (format "%s%c" str (read-char-exclusive))))
     (setq unread-command-events
 	  (append (string-to-list result) unread-command-events))))