Mercurial > emacs
comparison lisp/international/encoded-kb.el @ 37238:3f6a34e25c92
(encoded-kbd-self-insert-ccl):
Remove redundant string-to-list.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Fri, 06 Apr 2001 09:44:13 +0000 |
| parents | 416e07ad047e |
| children | 67b464da13ec |
comparison
equal
deleted
inserted
replaced
| 37237:b33a7fe4ae3d | 37238:3f6a34e25c92 |
|---|---|
| 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 (dotimes (i 9) (aset vec i nil)) | 244 (dotimes (i 9) (aset vec i nil)) |
| 245 (setq str (format "%s%c" str (read-char-exclusive)))) | 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 result unread-command-events)))) |
| 248 | 248 |
| 249 (defun encoded-kbd-setup-keymap (coding) | 249 (defun encoded-kbd-setup-keymap (coding) |
| 250 ;; At first, reset the keymap. | 250 ;; At first, reset the keymap. |
| 251 (setcdr encoded-kbd-mode-map nil) | 251 (setcdr encoded-kbd-mode-map nil) |
| 252 ;; Then setup the keymap according to the keyboard coding system. | 252 ;; Then setup the keymap according to the keyboard coding system. |