Commit 164edac8 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(encoded-kbd-iso2022-designation-map): Pay attention to that

charset-iso-final-char return -1 for eight-bit-control and
eight-bit-graphic.
parent 49f93684
......@@ -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.")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment