]> git.eshelyaron.com Git - emacs.git/commitdiff
(encoded-kbd-self-insert-ccl):
authorKenichi Handa <handa@m17n.org>
Fri, 30 Mar 2001 12:11:26 +0000 (12:11 +0000)
committerKenichi Handa <handa@m17n.org>
Fri, 30 Mar 2001 12:11:26 +0000 (12:11 +0000)
Reduce making temporary vector (suggested by by Dave Love).

lisp/international/encoded-kb.el

index 68a04bafff406eed425adac5a3336271b7a44e34..0b50b4b6d97dbfed15ee7d8ea2ac6a3f5b5d9b78 100644 (file)
@@ -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))))