# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 959562537 0
# Node ID 00ff62c583fee46e078684b1717267b20787aaab
# Parent  60f4996144af25e2f0c5928414124613093460a9
(encoded-kbd-iso2022-designation-map): Pay attention to that
charset-iso-final-char return -1 for eight-bit-control and
eight-bit-graphic.

diff -r 60f4996144af -r 00ff62c583fe lisp/international/encoded-kb.el
--- 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.")