Mercurial > emacs
changeset 29267:00ff62c583fe
(encoded-kbd-iso2022-designation-map): Pay attention to that
charset-iso-final-char return -1 for eight-bit-control and
eight-bit-graphic.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 29 May 2000 01:08:57 +0000 |
| parents | 60f4996144af |
| children | 4165d44fcd68 |
| files | lisp/international/encoded-kb.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/encoded-kb.el Mon May 29 01:08:31 2000 +0000 +++ b/lisp/international/encoded-kb.el Mon May 29 01:08:57 2000 +0000 @@ -70,11 +70,13 @@ (defvar encoded-kbd-iso2022-designation-map (let ((map (make-sparse-keymap)) - (l charset-list)) + (l charset-list) + final-char) (while l - (define-key map - (char-to-string (charset-iso-final-char (car l))) - 'encoded-kbd-iso2022-designation) + (setq final-char (charset-iso-final-char (car l))) + (if final-char + (define-key map (char-to-string final-char) + 'encoded-kbd-iso2022-designation)) (setq l (cdr l))) map) "Keymap for handling ISO2022 designation sequence in Encoded-kbd mode.")