diff options
| author | Dave Love | 2002-05-26 22:42:31 +0000 |
|---|---|---|
| committer | Dave Love | 2002-05-26 22:42:31 +0000 |
| commit | b4bb307b630f38c7439d83efd029ca37b4bffa10 (patch) | |
| tree | 77459bdf981d22dae4eeb47c08001c61bcb68483 | |
| parent | 2b7d6c1a8b75c3cd8cd7808cabdf2c811aee2d27 (diff) | |
| download | emacs-b4bb307b630f38c7439d83efd029ca37b4bffa10.tar.gz emacs-b4bb307b630f38c7439d83efd029ca37b4bffa10.zip | |
(encoded-kbd-setup-keymap) <ccl>:
Use :valid property.
| -rw-r--r-- | lisp/international/encoded-kb.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/international/encoded-kb.el b/lisp/international/encoded-kb.el index 11cd3a6e3cd..e66c9f0009e 100644 --- a/lisp/international/encoded-kb.el +++ b/lisp/international/encoded-kb.el | |||
| @@ -298,7 +298,7 @@ The following key sequence may cause multilingual text insertion." | |||
| 298 | (setq i (1+ i))))) | 298 | (setq i (1+ i))))) |
| 299 | 299 | ||
| 300 | ((eq encoded-kbd-coding 'ccl) | 300 | ((eq encoded-kbd-coding 'ccl) |
| 301 | (let ((valid-codes (or (coding-system-get coding 'valid-codes) | 301 | (let ((valid-codes (or (coding-system-get coding :valid) |
| 302 | '((128 . 255)))) | 302 | '((128 . 255)))) |
| 303 | elt from to) | 303 | elt from to) |
| 304 | (while valid-codes | 304 | (while valid-codes |