Mercurial > emacs

comparison lisp/international/encoded-kb.el @ 88653:ab210513bef9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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)