Mercurial > emacs
diff lisp/international/encoded-kb.el @ 88653:ab210513bef9
(encoded-kbd-setup-keymap) <ccl>:
Use :valid property.
author | Dave Love <fx@gnu.org> |
---|---|
date | Sun, 26 May 2002 22:42:31 +0000 |
parents | 3629e02a95c1 |
children | 2f877ed80fa6 |
line wrap: on
line diff
--- a/lisp/international/encoded-kb.el Sun May 26 22:42:00 2002 +0000 +++ b/lisp/international/encoded-kb.el Sun May 26 22:42:31 2002 +0000 @@ -298,7 +298,7 @@ (setq i (1+ i))))) ((eq encoded-kbd-coding 'ccl) - (let ((valid-codes (or (coding-system-get coding 'valid-codes) + (let ((valid-codes (or (coding-system-get coding :valid) '((128 . 255)))) elt from to) (while valid-codes