Mercurial > emacs
changeset 37095:416e07ad047e
(encoded-kbd-self-insert-ccl):
Reduce making temporary vector (suggested by by Dave Love).
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 30 Mar 2001 12:11:26 +0000 |
| parents | a2589ccb991e |
| children | 0271543faf85 |
| files | lisp/international/encoded-kb.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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))))