Mercurial > emacs

comparison lisp/international/encoded-kb.el @ 29267:00ff62c583fe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(encoded-kbd-iso2022-designation-map): Pay attention to that charset-iso-final-char return -1 for eight-bit-control and eight-bit-graphic.
author Kenichi Handa <handa@m17n.org>
date Mon, 29 May 2000 01:08:57 +0000
parents 321027008721
children 4165d44fcd68
comparison
equal deleted inserted replaced
29266:60f4996144af 29267:00ff62c583fe
68 (fset 'encoded-kbd-iso2022-esc-dollar-prefix 68 (fset 'encoded-kbd-iso2022-esc-dollar-prefix
69 encoded-kbd-iso2022-esc-dollar-map) 69 encoded-kbd-iso2022-esc-dollar-map)
70 70
71 (defvar encoded-kbd-iso2022-designation-map 71 (defvar encoded-kbd-iso2022-designation-map
72 (let ((map (make-sparse-keymap)) 72 (let ((map (make-sparse-keymap))
73 (l charset-list)) 73 (l charset-list)
74 final-char)
74 (while l 75 (while l
75 (define-key map 76 (setq final-char (charset-iso-final-char (car l)))
76 (char-to-string (charset-iso-final-char (car l))) 77 (if final-char
77 'encoded-kbd-iso2022-designation) 78 (define-key map (char-to-string final-char)
79 'encoded-kbd-iso2022-designation))
78 (setq l (cdr l))) 80 (setq l (cdr l)))
79 map) 81 map)
80 "Keymap for handling ISO2022 designation sequence in Encoded-kbd mode.") 82 "Keymap for handling ISO2022 designation sequence in Encoded-kbd mode.")
81 (fset 'encoded-kbd-iso2022-designation-prefix 83 (fset 'encoded-kbd-iso2022-designation-prefix
82 encoded-kbd-iso2022-designation-map) 84 encoded-kbd-iso2022-designation-map)