diff options
| author | Kenichi Handa <handa@m17n.org> | 2000-05-29 01:08:57 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2000-05-29 01:08:57 +0000 |
| commit | 164edac82f6bc8e7d209d59e394908a8ddb8fafa (patch) | |
| tree | 6c703448f3112b7e671626ac15db72d225b728c3 /lisp/international/encoded-kb.el | |
| parent | 49f93684fe1464b17a1bd9a4d8e1df67d15c0c14 (diff) | |
| download | emacs-164edac82f6bc8e7d209d59e394908a8ddb8fafa.tar.gz | |
(encoded-kbd-iso2022-designation-map): Pay attention to that
charset-iso-final-char return -1 for eight-bit-control and
eight-bit-graphic.
Diffstat (limited to 'lisp/international/encoded-kb.el')
| -rw-r--r-- | lisp/international/encoded-kb.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/international/encoded-kb.el b/lisp/international/encoded-kb.el index 53bd38de53d..56c684a91fb 100644 --- a/lisp/international/encoded-kb.el +++ b/lisp/international/encoded-kb.el @@ -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.") |