Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
88652:8b4e3bbe01d4 | 88653:ab210513bef9 |
---|---|
296 (define-key encoded-kbd-mode-map | 296 (define-key encoded-kbd-mode-map |
297 (vector i) 'encoded-kbd-self-insert-iso2022-8bit) | 297 (vector i) 'encoded-kbd-self-insert-iso2022-8bit) |
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 |
305 (setq elt (car valid-codes) valid-codes (cdr valid-codes)) | 305 (setq elt (car valid-codes) valid-codes (cdr valid-codes)) |
306 (if (consp elt) | 306 (if (consp elt) |