From: Kenichi Handa <handa@m17n.org>
Date: Fri, 30 Mar 2001 12:11:26 +0000 (+0000)
Subject: (encoded-kbd-self-insert-ccl):
X-Git-Tag: emacs-pretest-21.0.101~84
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=81a23e8806ff37cc5a0a680488ab700c1adcfd4f;p=emacs.git

(encoded-kbd-self-insert-ccl):
Reduce making temporary vector (suggested by by Dave Love).
---

diff --git a/lisp/international/encoded-kb.el b/lisp/international/encoded-kb.el
index 68a04bafff4..0b50b4b6d97 100644
--- a/lisp/international/encoded-kb.el
+++ b/lisp/international/encoded-kb.el
@@ -238,11 +238,11 @@ The following key sequence may cause multilingual text insertion."
   (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))))