From: Kenichi Handa <handa@m17n.org>
Date: Mon, 29 May 2000 01:08:57 +0000 (+0000)
Subject: (encoded-kbd-iso2022-designation-map): Pay attention to that
X-Git-Tag: emacs-pretest-21.0.90~3656
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=164edac82f6bc8e7d209d59e394908a8ddb8fafa;p=emacs.git

(encoded-kbd-iso2022-designation-map): Pay attention to that
charset-iso-final-char return -1 for eight-bit-control and
eight-bit-graphic.
---

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.")