diff options
author | Kenichi Handa <handa@m17n.org> | 2001-03-30 12:11:26 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 2001-03-30 12:11:26 +0000 |
commit | 81a23e8806ff37cc5a0a680488ab700c1adcfd4f (patch) | |
tree | 9d9d146287a0d04f6523117e67dd40022fe24cc7 /lisp/international | |
parent | 55f7832c22d0110d76d619ffbfe0a5c5321148bd (diff) | |
download | emacs-81a23e8806ff37cc5a0a680488ab700c1adcfd4f.tar.gz |
(encoded-kbd-self-insert-ccl):
Reduce making temporary vector (suggested by by Dave Love).
Diffstat (limited to 'lisp/international')
-rw-r--r-- | lisp/international/encoded-kb.el | 6 |
1 files 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)))) |