annotate lisp/international/encoded-kb.el @ 70259:58edc69a1813

(grep-read-files): Use buffer-name if no buffer-file-name. Default to *.ext if no alias matches. No default if no extension.
author Kim F. Storm <storm@cua.dk>
date Fri, 28 Apr 2006 23:39:02 +0000
parents 18a818a2ee7c
children 43cc94d955c2 6c13700d1c13 f9a65d7ebd29
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
38414
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 37238
diff changeset
1 ;;; encoded-kb.el --- handler to input multibyte characters encoded somehow
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2
62274
c36561fe0657 Fix copyrights.
Kenichi Handa <handa@m17n.org>
parents: 61280
diff changeset
3 ;; Copyright (C) 1997 Free Software Foundation, Inc.
c36561fe0657 Fix copyrights.
Kenichi Handa <handa@m17n.org>
parents: 61280
diff changeset
4 ;; Copyright (C) 1995, 1997, 1998, 1999, 2000, 2001, 2004, 2005
c36561fe0657 Fix copyrights.
Kenichi Handa <handa@m17n.org>
parents: 61280
diff changeset
5 ;; National Institute of Advanced Industrial Science and Technology (AIST)
c36561fe0657 Fix copyrights.
Kenichi Handa <handa@m17n.org>
parents: 61280
diff changeset
6 ;; Registration Number H14PRO021
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
9
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
13 ;; any later version.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
14
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
19
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
17071
70194012fb3a Fix FSF address in comment.
Karl Heuer <kwzh@gnu.org>
parents: 17052
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64085
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 62274
diff changeset
22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
18a818a2ee7c Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 62274
diff changeset
23 ;; Boston, MA 02110-1301, USA.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
24
38414
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 37238
diff changeset
25 ;;; Commentary:
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 37238
diff changeset
26
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 37238
diff changeset
27 ;;; Code:
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 37238
diff changeset
28
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
29 ;; Usually this map is empty (even if Encoded-kbd mode is on), but if
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
30 ;; the keyboard coding system is iso-2022-based, it defines dummy key
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
31 ;; bindings for ESC $ ..., etc. so that those bindings in
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
32 ;; key-translation-map take effect.
27816
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
33 (defconst encoded-kbd-mode-map (make-sparse-keymap)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
34 "Keymap for Encoded-kbd minor mode.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
35
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
36 ;; Subsidiary keymaps for handling ISO2022 escape sequences.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
37
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
38 (defvar encoded-kbd-iso2022-esc-map
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
39 (let ((map (make-sparse-keymap)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
40 (define-key map "$" 'encoded-kbd-iso2022-esc-dollar-prefix)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
41 (define-key map "(" 'encoded-kbd-iso2022-designation-prefix)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
42 (define-key map ")" 'encoded-kbd-iso2022-designation-prefix)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
43 (define-key map "," 'encoded-kbd-iso2022-designation-prefix)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
44 (define-key map "-" 'encoded-kbd-iso2022-designation-prefix)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
45 map)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
46 "Keymap for handling ESC code in Encoded-kbd mode.")
17080
d80a8a46437e Many changes to cope with the above change.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
47 (fset 'encoded-kbd-iso2022-esc-prefix encoded-kbd-iso2022-esc-map)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
48
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
49 (defvar encoded-kbd-iso2022-esc-dollar-map
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
50 (let ((map (make-sparse-keymap)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
51 (define-key map "(" 'encoded-kbd-iso2022-designation-prefix)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
52 (define-key map ")" 'encoded-kbd-iso2022-designation-prefix)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
53 (define-key map "," 'encoded-kbd-iso2022-designation-prefix)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
54 (define-key map "-" 'encoded-kbd-iso2022-designation-prefix)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
55 (define-key map "@" 'encoded-kbd-iso2022-designation)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
56 (define-key map "A" 'encoded-kbd-iso2022-designation)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
57 (define-key map "B" 'encoded-kbd-iso2022-designation)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
58 map)
17080
d80a8a46437e Many changes to cope with the above change.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
59 "Keymap for handling ESC $ sequence in Encoded-kbd mode.")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
60 (fset 'encoded-kbd-iso2022-esc-dollar-prefix
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
61 encoded-kbd-iso2022-esc-dollar-map)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
62
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
63 (defvar encoded-kbd-iso2022-designation-map
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
64 (let ((map (make-sparse-keymap))
29267
00ff62c583fe (encoded-kbd-iso2022-designation-map): Pay attention to that
Kenichi Handa <handa@m17n.org>
parents: 27816
diff changeset
65 (l charset-list)
00ff62c583fe (encoded-kbd-iso2022-designation-map): Pay attention to that
Kenichi Handa <handa@m17n.org>
parents: 27816
diff changeset
66 final-char)
17080
d80a8a46437e Many changes to cope with the above change.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
67 (while l
29267
00ff62c583fe (encoded-kbd-iso2022-designation-map): Pay attention to that
Kenichi Handa <handa@m17n.org>
parents: 27816
diff changeset
68 (setq final-char (charset-iso-final-char (car l)))
29268
4165d44fcd68 (encoded-kbd-iso2022-designation-map): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 29267
diff changeset
69 (if (> final-char 0)
29267
00ff62c583fe (encoded-kbd-iso2022-designation-map): Pay attention to that
Kenichi Handa <handa@m17n.org>
parents: 27816
diff changeset
70 (define-key map (char-to-string final-char)
00ff62c583fe (encoded-kbd-iso2022-designation-map): Pay attention to that
Kenichi Handa <handa@m17n.org>
parents: 27816
diff changeset
71 'encoded-kbd-iso2022-designation))
17080
d80a8a46437e Many changes to cope with the above change.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
72 (setq l (cdr l)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
73 map)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
74 "Keymap for handling ISO2022 designation sequence in Encoded-kbd mode.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
75 (fset 'encoded-kbd-iso2022-designation-prefix
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
76 encoded-kbd-iso2022-designation-map)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
77
27816
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
78 ;; Keep information of designation state of ISO2022 encoding. When
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
79 ;; Encoded-kbd mode is on, this is set to a vector of length 4, the
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
80 ;; elements are character sets currently designated to graphic
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
81 ;; registers 0 thru 3.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
82
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
83 (defvar encoded-kbd-iso2022-designations nil)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
84 (put 'encoded-kbd-iso2022-designations 'permanent-local t)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
85
27816
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
86 ;; Keep information of invocation state of ISO2022 encoding. When
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
87 ;; Encoded-kbd mode is on, this is set to a vector of length 3,
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
88 ;; graphic register numbers currently invoked to graphic plane 1 and
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
89 ;; 2, and a single shifted graphic register number.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
90
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
91 (defvar encoded-kbd-iso2022-invocations nil)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
92 (put 'encoded-kbd-iso2022-invocations 'permanent-local t)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
93
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
94 (defsubst encoded-kbd-last-key ()
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
95 (let ((keys (this-single-command-keys)))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
96 (aref keys (1- (length keys)))))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
97
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
98 (defun encoded-kbd-iso2022-designation (ignore)
23196
30beacf88b75 Doc fixes.
Karl Heuer <kwzh@gnu.org>
parents: 22521
diff changeset
99 "Do ISO2022 designation according to the current key in Encoded-kbd mode.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
100 The following key sequence may cause multilingual text insertion."
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
101 (let ((key-seq (this-single-command-keys))
19434
31d9ded94ba4 (encoded-kbd-mode): Doc-string modified. Make this a
Kenichi Handa <handa@m17n.org>
parents: 19421
diff changeset
102 (prev-g0-charset (aref encoded-kbd-iso2022-designations
31d9ded94ba4 (encoded-kbd-mode): Doc-string modified. Make this a
Kenichi Handa <handa@m17n.org>
parents: 19421
diff changeset
103 (aref encoded-kbd-iso2022-invocations 0)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
104 intermediate-char final-char
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
105 reg dimension chars charset)
17080
d80a8a46437e Many changes to cope with the above change.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
106 (if (= (length key-seq) 4)
d80a8a46437e Many changes to cope with the above change.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
107 ;; ESC $ <intermediate-char> <final-char>
d80a8a46437e Many changes to cope with the above change.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
108 (setq intermediate-char (aref key-seq 2)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
109 dimension 2
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
110 chars (if (< intermediate-char ?,) 94 96)
17080
d80a8a46437e Many changes to cope with the above change.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
111 final-char (aref key-seq 3)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
112 reg (mod intermediate-char 4))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
113 (if (= (aref key-seq 1) ?$)
17080
d80a8a46437e Many changes to cope with the above change.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
114 ;; ESC $ <final-char>
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
115 (setq dimension 2
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
116 chars 94
17080
d80a8a46437e Many changes to cope with the above change.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
117 final-char (aref key-seq 2)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
118 reg 0)
17080
d80a8a46437e Many changes to cope with the above change.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
119 ;; ESC <intermediate-char> <final-char>
d80a8a46437e Many changes to cope with the above change.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
120 (setq intermediate-char (aref key-seq 1)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
121 dimension 1
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
122 chars (if (< intermediate-char ?,) 94 96)
17080
d80a8a46437e Many changes to cope with the above change.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
123 final-char (aref key-seq 2)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
124 reg (mod intermediate-char 4))))
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
125 (aset encoded-kbd-iso2022-designations reg
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
126 (iso-charset dimension chars final-char)))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
127 "")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
128
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
129 (defun encoded-kbd-iso2022-single-shift (ignore)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
130 (let ((char (encoded-kbd-last-key)))
59711
fa3ef0f9b02e (encoded-kbd-iso2022-single-shift):
Kenichi Handa <handa@m17n.org>
parents: 56598
diff changeset
131 (aset encoded-kbd-iso2022-invocations 2 (if (= char ?\216) 2 3)))
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
132 "")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
133
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
134 (defun encoded-kbd-self-insert-iso2022-7bit (ignore)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
135 (let ((char (encoded-kbd-last-key))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
136 (charset (aref encoded-kbd-iso2022-designations
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
137 (or (aref encoded-kbd-iso2022-invocations 2)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
138 (aref encoded-kbd-iso2022-invocations 0)))))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
139 (aset encoded-kbd-iso2022-invocations 2 nil)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
140 (vector (if (= (charset-dimension charset) 1)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
141 (make-char charset char)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
142 (make-char charset char (read-char-exclusive))))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
143
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
144 (defun encoded-kbd-self-insert-iso2022-8bit (ignore)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
145 (let ((char (encoded-kbd-last-key))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
146 (charset (aref encoded-kbd-iso2022-designations
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
147 (or (aref encoded-kbd-iso2022-invocations 2)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
148 (aref encoded-kbd-iso2022-invocations 1)))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
149 (aset encoded-kbd-iso2022-invocations 2 nil)
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
150 (vector (if (= (charset-dimension charset) 1)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
151 (make-char charset char)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
152 (make-char charset char (read-char-exclusive))))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
153
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
154 (defun encoded-kbd-self-insert-sjis (ignore)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
155 (let ((char (encoded-kbd-last-key)))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
156 (vector
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
157 (if (or (< char ?\xA0) (>= char ?\xE0))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
158 (decode-sjis-char (+ (ash char 8) (read-char-exclusive)))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
159 (make-char 'katakana-jisx0201 char)))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
160
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
161 (defun encoded-kbd-self-insert-big5 (ignore)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
162 (let ((char (encoded-kbd-last-key)))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
163 (vector
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
164 (decode-big5-char (+ (ash char 8) (read-char-exclusive))))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
165
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
166 (defun encoded-kbd-self-insert-ccl (ignore)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
167 (let ((str (char-to-string (encoded-kbd-last-key)))
36954
798d1ac75e95 (encoded-kbd-self-insert-ccl): Call ccl-execute-on-string directly so
Kenichi Handa <handa@m17n.org>
parents: 29268
diff changeset
168 (ccl (car (aref (coding-system-spec (keyboard-coding-system)) 4)))
37095
416e07ad047e (encoded-kbd-self-insert-ccl):
Kenichi Handa <handa@m17n.org>
parents: 36954
diff changeset
169 (vec [nil nil nil nil nil nil nil nil nil])
36954
798d1ac75e95 (encoded-kbd-self-insert-ccl): Call ccl-execute-on-string directly so
Kenichi Handa <handa@m17n.org>
parents: 29268
diff changeset
170 result)
798d1ac75e95 (encoded-kbd-self-insert-ccl): Call ccl-execute-on-string directly so
Kenichi Handa <handa@m17n.org>
parents: 29268
diff changeset
171 (while (= (length (setq result (ccl-execute-on-string ccl vec str t))) 0)
37095
416e07ad047e (encoded-kbd-self-insert-ccl):
Kenichi Handa <handa@m17n.org>
parents: 36954
diff changeset
172 (dotimes (i 9) (aset vec i nil))
416e07ad047e (encoded-kbd-self-insert-ccl):
Kenichi Handa <handa@m17n.org>
parents: 36954
diff changeset
173 (setq str (format "%s%c" str (read-char-exclusive))))
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
174 (vector (aref result 0))))
27816
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
175
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
176 (defun encoded-kbd-setup-keymap (coding)
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
177 ;; At first, reset the keymap.
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
178 (define-key encoded-kbd-mode-map "\e" nil)
27816
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
179 ;; Then setup the keymap according to the keyboard coding system.
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
180 (cond
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
181 ((eq (coding-system-type coding) 1) ; SJIS
27816
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
182 (let ((i 128))
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
183 (while (< i 256)
56598
3caaa79fcb7e (encoded-kbd-setup-keymap): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 56597
diff changeset
184 (define-key key-translation-map
27816
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
185 (vector i) 'encoded-kbd-self-insert-sjis)
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
186 (setq i (1+ i))))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
187 8)
27816
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
188
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
189 ((eq (coding-system-type coding) 3) ; Big5
27816
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
190 (let ((i 161))
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
191 (while (< i 255)
56598
3caaa79fcb7e (encoded-kbd-setup-keymap): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 56597
diff changeset
192 (define-key key-translation-map
27816
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
193 (vector i) 'encoded-kbd-self-insert-big5)
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
194 (setq i (1+ i))))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
195 8)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 47817
diff changeset
196
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
197 ((eq (coding-system-type coding) 2) ; ISO-2022
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
198 (let ((flags (coding-system-flags coding))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
199 use-designation)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
200 (if (aref flags 8)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
201 nil ; Don't support locking-shift.
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
202 (setq encoded-kbd-iso2022-designations (make-vector 4 nil)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
203 encoded-kbd-iso2022-invocations (make-vector 3 nil))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
204 (dotimes (i 4)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
205 (if (aref flags i)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
206 (if (charsetp (aref flags i))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
207 (aset encoded-kbd-iso2022-designations
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
208 i (aref flags i))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
209 (setq use-designation t)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
210 (if (charsetp (car-safe (aref flags i)))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
211 (aset encoded-kbd-iso2022-designations
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
212 i (car (aref flags i)))))))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
213 (aset encoded-kbd-iso2022-invocations 0 0)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
214 (if (aref encoded-kbd-iso2022-designations 1)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
215 (aset encoded-kbd-iso2022-invocations 1 1))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
216 (when use-designation
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
217 (define-key encoded-kbd-mode-map "\e" 'encoded-kbd-iso2022-esc-prefix)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
218 (define-key key-translation-map "\e" 'encoded-kbd-iso2022-esc-prefix))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
219 (when (or (aref flags 2) (aref flags 3))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
220 (define-key key-translation-map
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
221 [?\216] 'encoded-kbd-iso2022-single-shift)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
222 (define-key key-translation-map
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
223 [?\217] 'encoded-kbd-iso2022-single-shift))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
224 (or (eq (aref flags 0) 'ascii)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
225 (dotimes (i 96)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
226 (define-key key-translation-map
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
227 (vector (+ 32 i)) 'encoded-kbd-self-insert-iso2022-7bit)))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
228 (if (aref flags 7)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
229 t
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
230 (dotimes (i 96)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
231 (define-key key-translation-map
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
232 (vector (+ 160 i)) 'encoded-kbd-self-insert-iso2022-8bit))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
233 8))))
27816
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
234
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
235 ((eq (coding-system-type coding) 4) ; CCL-base
27816
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
236 (let ((valid-codes (or (coding-system-get coding 'valid-codes)
36954
798d1ac75e95 (encoded-kbd-self-insert-ccl): Call ccl-execute-on-string directly so
Kenichi Handa <handa@m17n.org>
parents: 29268
diff changeset
237 '((128 . 255))))
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
238 elt from to valid)
27816
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
239 (while valid-codes
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
240 (setq elt (car valid-codes) valid-codes (cdr valid-codes))
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
241 (if (consp elt)
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
242 (setq from (car elt) to (cdr elt))
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
243 (setq from (setq to elt)))
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
244 (while (<= from to)
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
245 (if (>= from 128)
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
246 (define-key key-translation-map
27816
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
247 (vector from) 'encoded-kbd-self-insert-ccl))
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
248 (setq from (1+ from))))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
249 8))
27816
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
250
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
251 (t
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
252 nil)))
27816
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
253
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
254 ;; key-translation-map at the time Encoded-kbd mode is turned on is
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
255 ;; saved here.
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
256 (defvar saved-key-translation-map nil)
27816
321027008721 Be sure to update minor-mode-alist
Kenichi Handa <handa@m17n.org>
parents: 25042
diff changeset
257
19268
ecb55608fa91 (saved-input-mode): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18697
diff changeset
258 ;; Input mode at the time Encoded-kbd mode is turned on is saved here.
ecb55608fa91 (saved-input-mode): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18697
diff changeset
259 (defvar saved-input-mode nil)
ecb55608fa91 (saved-input-mode): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18697
diff changeset
260
41715
3fb1c54eb631 (encoded-kbd-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41344
diff changeset
261 (put 'encoded-kbd-mode 'permanent-local t)
17080
d80a8a46437e Many changes to cope with the above change.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
262 ;;;###autoload
41715
3fb1c54eb631 (encoded-kbd-mode): Use define-minor-mode.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 41344
diff changeset
263 (define-minor-mode encoded-kbd-mode
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
264 "Toggle Encoded-kbd minor mode.
19268
ecb55608fa91 (saved-input-mode): New variable.
Kenichi Handa <handa@m17n.org>
parents: 18697
diff changeset
265 With arg, turn Encoded-kbd mode on if and only if arg is positive.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
266
19434
31d9ded94ba4 (encoded-kbd-mode): Doc-string modified. Make this a
Kenichi Handa <handa@m17n.org>
parents: 19421
diff changeset
267 You should not turn this mode on manually, instead use the command
21700
e225fec97357 (encoded-kbd-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 19434
diff changeset
268 \\[set-keyboard-coding-system] which turns on or off this mode
19434
31d9ded94ba4 (encoded-kbd-mode): Doc-string modified. Make this a
Kenichi Handa <handa@m17n.org>
parents: 19421
diff changeset
269 automatically.
31d9ded94ba4 (encoded-kbd-mode): Doc-string modified. Make this a
Kenichi Handa <handa@m17n.org>
parents: 19421
diff changeset
270
31d9ded94ba4 (encoded-kbd-mode): Doc-string modified. Make this a
Kenichi Handa <handa@m17n.org>
parents: 19421
diff changeset
271 In Encoded-kbd mode, a text sent from keyboard is accepted
31d9ded94ba4 (encoded-kbd-mode): Doc-string modified. Make this a
Kenichi Handa <handa@m17n.org>
parents: 19421
diff changeset
272 as a multilingual text encoded in a coding system set by
21700
e225fec97357 (encoded-kbd-mode): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 19434
diff changeset
273 \\[set-keyboard-coding-system]."
61280
00b61538c205 (encoded-kbd-mode): Specify :group.
Lute Kamstra <lute@gnu.org>
parents: 59711
diff changeset
274 :global t :group 'keyboard :group 'mule
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
275
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
276 (if encoded-kbd-mode
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
277 ;; We are turning on Encoded-kbd mode.
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
278 (let ((coding (keyboard-coding-system))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
279 result)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
280 (or saved-key-translation-map
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
281 (if (keymapp key-translation-map)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
282 (setq saved-key-translation-map
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
283 (copy-keymap key-translation-map))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
284 (setq key-translation-map (make-sparse-keymap))))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
285 (or saved-input-mode
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
286 (setq saved-input-mode
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
287 (current-input-mode)))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
288 (setq result (and coding (encoded-kbd-setup-keymap coding)))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
289 (if result
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
290 (if (eq result 8)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
291 (set-input-mode
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
292 (nth 0 saved-input-mode)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
293 (nth 1 saved-input-mode)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
294 'use-8th-bit
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
295 (nth 3 saved-input-mode)))
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
296 (setq encoded-kbd-mode nil
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
297 saved-key-translation-map nil
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
298 saved-input-mode nil)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
299 (error "Unsupported coding system in Encoded-kbd mode: %S"
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
300 coding)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
301
56597
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
302 ;; We are turning off Encoded-kbd mode.
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
303 (setq key-translation-map saved-key-translation-map
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
304 saved-key-translation-map nil)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
305 (apply 'set-input-mode saved-input-mode)
399c8a1fbe0b The following changes are to
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
306 (setq saved-input-mode nil)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
307
47817
8dcee128f3b5 Add `provide' call.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 44451
diff changeset
308 (provide 'encoded-kb)
8dcee128f3b5 Add `provide' call.
Markus Rost <rost@math.uni-bielefeld.de>
parents: 44451
diff changeset
309
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49598
diff changeset
310 ;;; arch-tag: 76f0f9b3-65e7-45c3-b692-59509a87ad44
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
311 ;;; encoded-kb.el ends here