diff options
| author | Kenichi Handa | 2001-03-30 12:11:26 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2001-03-30 12:11:26 +0000 |
| commit | 81a23e8806ff37cc5a0a680488ab700c1adcfd4f (patch) | |
| tree | 9d9d146287a0d04f6523117e67dd40022fe24cc7 | |
| parent | 55f7832c22d0110d76d619ffbfe0a5c5321148bd (diff) | |
| download | emacs-81a23e8806ff37cc5a0a680488ab700c1adcfd4f.tar.gz emacs-81a23e8806ff37cc5a0a680488ab700c1adcfd4f.zip | |
(encoded-kbd-self-insert-ccl):
Reduce making temporary vector (suggested by by Dave Love).
| -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." | |||
| 238 | (interactive) | 238 | (interactive) |
| 239 | (let ((str (char-to-string last-command-char)) | 239 | (let ((str (char-to-string last-command-char)) |
| 240 | (ccl (car (aref (coding-system-spec (keyboard-coding-system)) 4))) | 240 | (ccl (car (aref (coding-system-spec (keyboard-coding-system)) 4))) |
| 241 | (vec (make-vector 9 nil)) | 241 | (vec [nil nil nil nil nil nil nil nil nil]) |
| 242 | result) | 242 | result) |
| 243 | (while (= (length (setq result (ccl-execute-on-string ccl vec str t))) 0) | 243 | (while (= (length (setq result (ccl-execute-on-string ccl vec str t))) 0) |
| 244 | (setq str (format "%s%c" str (read-char-exclusive)) | 244 | (dotimes (i 9) (aset vec i nil)) |
| 245 | vec (make-vector 9 nil))) | 245 | (setq str (format "%s%c" str (read-char-exclusive)))) |
| 246 | (setq unread-command-events | 246 | (setq unread-command-events |
| 247 | (append (string-to-list result) unread-command-events)))) | 247 | (append (string-to-list result) unread-command-events)))) |
| 248 | 248 | ||