Commit | Line | Data |
---|---|---|
bac5a9cd | 1 | ;;; iso02-acc.el --- electric accent keys for Eastern Europe (ISO latin2) |
d45bfadf RS |
2 | |
3 | ;; Copyright (C) 1995 Free Software Foundation, Inc. | |
4 | ||
5 | ;; This file is part of GNU Emacs. | |
6 | ||
7 | ;; GNU Emacs is free software; you can redistribute it and/or modify | |
8 | ;; it under the terms of the GNU General Public License as published by | |
9 | ;; the Free Software Foundation; either version 2, or (at your option) | |
10 | ;; any later version. | |
11 | ||
12 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
13 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
14 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
15 | ;; GNU General Public License for more details. | |
16 | ||
17 | ;; You should have received a copy of the GNU General Public License | |
b578f267 EN |
18 | ;; along with GNU Emacs; see the file COPYING. If not, write to the |
19 | ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
20 | ;; Boston, MA 02111-1307, USA. | |
d45bfadf RS |
21 | |
22 | ;;; Code: | |
23 | ||
24 | (defvar iso-accents-list | |
25 | '(((?' ?A) ?\301) | |
26 | ((?' ?C) ?\306) | |
27 | ((?' ?D) ?\320) | |
28 | ((?' ?E) ?\311) | |
29 | ((?' ?I) ?\315) | |
30 | ((?' ?L) ?\305) | |
31 | ((?' ?N) ?\321) | |
32 | ((?' ?O) ?\323) | |
33 | ((?' ?R) ?\300) | |
34 | ((?' ?S) ?\246) | |
35 | ((?' ?U) ?\332) | |
36 | ((?' ?Y) ?\335) | |
37 | ((?' ?Z) ?\254) | |
38 | ((?' ?a) ?\341) | |
39 | ((?' ?c) ?\346) | |
40 | ((?' ?d) ?\360) | |
41 | ((?' ?e) ?\351) | |
42 | ((?' ?i) ?\355) | |
43 | ((?' ?l) ?\345) | |
44 | ((?' ?n) ?\361) | |
45 | ((?' ?o) ?\363) | |
46 | ((?' ?r) ?\340) | |
47 | ((?' ?s) ?\266) | |
48 | ((?' ?u) ?\372) | |
49 | ((?' ?y) ?\375) | |
50 | ((?' ?z) ?\274) | |
51 | ((?' ?') ?\264) | |
52 | ((?' ? ) ?') | |
53 | ((?` ?A) ?\241) | |
54 | ((?` ?C) ?\307) | |
55 | ((?` ?E) ?\312) | |
56 | ((?` ?L) ?\243) | |
57 | ((?` ?S) ?\252) | |
58 | ((?` ?T) ?\336) | |
59 | ((?` ?Z) ?\257) | |
60 | ((?` ?a) ?\261) | |
61 | ((?` ?l) ?\263) | |
62 | ((?` ?c) ?\347) | |
63 | ((?` ?e) ?\352) | |
64 | ((?` ?s) ?\272) | |
65 | ((?` ?t) ?\376) | |
66 | ((?` ?z) ?\277) | |
67 | ((?` ? ) ?`) | |
68 | ((?` ?`) ?\252) | |
69 | ((?` ?.) ?\377) | |
70 | ((?^ ?A) ?\302) | |
71 | ((?^ ?O) ?\324) | |
72 | ((?^ ?a) ?\342) | |
73 | ((?^ ?o) ?\364) | |
74 | ((?^ ? ) ?^) | |
75 | ((?^ ?^) ?^) ; no special code? | |
76 | ((?\" ?A) ?\304) | |
77 | ((?\" ?E) ?\313) | |
78 | ((?\" ?O) ?\326) | |
79 | ((?\" ?U) ?\334) | |
80 | ((?\" ?a) ?\344) | |
81 | ((?\" ?e) ?\353) | |
82 | ((?\" ?o) ?\366) | |
83 | ((?\" ?s) ?\337) | |
84 | ((?\" ?u) ?\374) | |
85 | ((?\" ? ) ?\") | |
86 | ((?\" ?\") ?\250) | |
87 | ((?\~ ?A) ?\303) | |
88 | ((?\~ ?C) ?\310) | |
89 | ((?\~ ?D) ?\317) | |
90 | ((?\~ ?L) ?\245) | |
91 | ((?\~ ?N) ?\322) | |
92 | ((?\~ ?O) ?\325) | |
93 | ((?\~ ?R) ?\330) | |
94 | ((?\~ ?S) ?\251) | |
95 | ((?\~ ?T) ?\253) | |
96 | ((?\~ ?U) ?\333) | |
97 | ((?\~ ?Z) ?\256) | |
98 | ((?\~ ?a) ?\323) | |
99 | ((?\~ ?c) ?\350) | |
100 | ((?\~ ?d) ?\357) | |
101 | ((?\~ ?l) ?\265) | |
102 | ((?\~ ?n) ?\362) | |
103 | ((?\~ ?o) ?\365) | |
104 | ((?\~ ?r) ?\370) | |
105 | ((?\~ ?s) ?\271) | |
106 | ((?\~ ?t) ?\273) | |
107 | ((?\~ ?u) ?\373) | |
108 | ((?\~ ?z) ?\276) | |
109 | ((?\~ ?\ ) ?\~) | |
110 | ((?\~ ?v) ?\242) ;; v accent | |
111 | ((?\~ ?\~) ?\242) ;; v accent | |
112 | ((?\~ ?\.) ?\270) ;; cedilla accent | |
113 | ) | |
114 | "Association list for ISO latin-2 accent combinations.") | |
115 | ||
116 | (defvar iso-accents-enable '(?' ?` ?^ ?\" ?~) | |
117 | "*List of accent keys that become prefixes in ISO Accents mode. | |
118 | The default is (?' ?` ?^ ?\" ?~), which contains all the supported | |
119 | accent keys. For certain languages, you might want to remove some of | |
120 | those characters that are not actually used.") | |
121 | ||
122 | (require 'iso-acc) | |
123 | ||
124 | ;;; iso02-acc.el ends here |