From 164edac82f6bc8e7d209d59e394908a8ddb8fafa Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 29 May 2000 01:08:57 +0000 Subject: [PATCH] (encoded-kbd-iso2022-designation-map): Pay attention to that charset-iso-final-char return -1 for eight-bit-control and eight-bit-graphic. --- lisp/international/encoded-kb.el | 10 ++++++---- 1 file 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.") -- 2.39.5