Mercurial > emacs
comparison lisp/international/encoded-kb.el @ 29268:4165d44fcd68
(encoded-kbd-iso2022-designation-map): Fix previous change.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 29 May 2000 01:09:52 +0000 |
| parents | 00ff62c583fe |
| children | 798d1ac75e95 |
comparison
equal
deleted
inserted
replaced
| 29267:00ff62c583fe | 29268:4165d44fcd68 |
|---|---|
| 72 (let ((map (make-sparse-keymap)) | 72 (let ((map (make-sparse-keymap)) |
| 73 (l charset-list) | 73 (l charset-list) |
| 74 final-char) | 74 final-char) |
| 75 (while l | 75 (while l |
| 76 (setq final-char (charset-iso-final-char (car l))) | 76 (setq final-char (charset-iso-final-char (car l))) |
| 77 (if final-char | 77 (if (> final-char 0) |
| 78 (define-key map (char-to-string final-char) | 78 (define-key map (char-to-string final-char) |
| 79 'encoded-kbd-iso2022-designation)) | 79 'encoded-kbd-iso2022-designation)) |
| 80 (setq l (cdr l))) | 80 (setq l (cdr l))) |
| 81 map) | 81 map) |
| 82 "Keymap for handling ISO2022 designation sequence in Encoded-kbd mode.") | 82 "Keymap for handling ISO2022 designation sequence in Encoded-kbd mode.") |