From 81a23e8806ff37cc5a0a680488ab700c1adcfd4f Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 30 Mar 2001 12:11:26 +0000 Subject: [PATCH] (encoded-kbd-self-insert-ccl): Reduce making temporary vector (suggested by by Dave Love). --- lisp/international/encoded-kb.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)))) -- 2.39.2