|
13353
|
1 ;;; iso02-acc.el --- electric accent keys for Eastern Europe (ISO latin2)
|
|
13335
|
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
|
|
|
18 ;; along with GNU Emacs; see the file COPYING. If not, write to
|
|
|
19 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
|
20
|
|
|
21 ;;; Code:
|
|
|
22
|
|
|
23 (defvar iso-accents-list
|
|
|
24 '(((?' ?A) ?\301)
|
|
|
25 ((?' ?C) ?\306)
|
|
|
26 ((?' ?D) ?\320)
|
|
|
27 ((?' ?E) ?\311)
|
|
|
28 ((?' ?I) ?\315)
|
|
|
29 ((?' ?L) ?\305)
|
|
|
30 ((?' ?N) ?\321)
|
|
|
31 ((?' ?O) ?\323)
|
|
|
32 ((?' ?R) ?\300)
|
|
|
33 ((?' ?S) ?\246)
|
|
|
34 ((?' ?U) ?\332)
|
|
|
35 ((?' ?Y) ?\335)
|
|
|
36 ((?' ?Z) ?\254)
|
|
|
37 ((?' ?a) ?\341)
|
|
|
38 ((?' ?c) ?\346)
|
|
|
39 ((?' ?d) ?\360)
|
|
|
40 ((?' ?e) ?\351)
|
|
|
41 ((?' ?i) ?\355)
|
|
|
42 ((?' ?l) ?\345)
|
|
|
43 ((?' ?n) ?\361)
|
|
|
44 ((?' ?o) ?\363)
|
|
|
45 ((?' ?r) ?\340)
|
|
|
46 ((?' ?s) ?\266)
|
|
|
47 ((?' ?u) ?\372)
|
|
|
48 ((?' ?y) ?\375)
|
|
|
49 ((?' ?z) ?\274)
|
|
|
50 ((?' ?') ?\264)
|
|
|
51 ((?' ? ) ?')
|
|
|
52 ((?` ?A) ?\241)
|
|
|
53 ((?` ?C) ?\307)
|
|
|
54 ((?` ?E) ?\312)
|
|
|
55 ((?` ?L) ?\243)
|
|
|
56 ((?` ?S) ?\252)
|
|
|
57 ((?` ?T) ?\336)
|
|
|
58 ((?` ?Z) ?\257)
|
|
|
59 ((?` ?a) ?\261)
|
|
|
60 ((?` ?l) ?\263)
|
|
|
61 ((?` ?c) ?\347)
|
|
|
62 ((?` ?e) ?\352)
|
|
|
63 ((?` ?s) ?\272)
|
|
|
64 ((?` ?t) ?\376)
|
|
|
65 ((?` ?z) ?\277)
|
|
|
66 ((?` ? ) ?`)
|
|
|
67 ((?` ?`) ?\252)
|
|
|
68 ((?` ?.) ?\377)
|
|
|
69 ((?^ ?A) ?\302)
|
|
|
70 ((?^ ?O) ?\324)
|
|
|
71 ((?^ ?a) ?\342)
|
|
|
72 ((?^ ?o) ?\364)
|
|
|
73 ((?^ ? ) ?^)
|
|
|
74 ((?^ ?^) ?^) ; no special code?
|
|
|
75 ((?\" ?A) ?\304)
|
|
|
76 ((?\" ?E) ?\313)
|
|
|
77 ((?\" ?O) ?\326)
|
|
|
78 ((?\" ?U) ?\334)
|
|
|
79 ((?\" ?a) ?\344)
|
|
|
80 ((?\" ?e) ?\353)
|
|
|
81 ((?\" ?o) ?\366)
|
|
|
82 ((?\" ?s) ?\337)
|
|
|
83 ((?\" ?u) ?\374)
|
|
|
84 ((?\" ? ) ?\")
|
|
|
85 ((?\" ?\") ?\250)
|
|
|
86 ((?\~ ?A) ?\303)
|
|
|
87 ((?\~ ?C) ?\310)
|
|
|
88 ((?\~ ?D) ?\317)
|
|
|
89 ((?\~ ?L) ?\245)
|
|
|
90 ((?\~ ?N) ?\322)
|
|
|
91 ((?\~ ?O) ?\325)
|
|
|
92 ((?\~ ?R) ?\330)
|
|
|
93 ((?\~ ?S) ?\251)
|
|
|
94 ((?\~ ?T) ?\253)
|
|
|
95 ((?\~ ?U) ?\333)
|
|
|
96 ((?\~ ?Z) ?\256)
|
|
|
97 ((?\~ ?a) ?\323)
|
|
|
98 ((?\~ ?c) ?\350)
|
|
|
99 ((?\~ ?d) ?\357)
|
|
|
100 ((?\~ ?l) ?\265)
|
|
|
101 ((?\~ ?n) ?\362)
|
|
|
102 ((?\~ ?o) ?\365)
|
|
|
103 ((?\~ ?r) ?\370)
|
|
|
104 ((?\~ ?s) ?\271)
|
|
|
105 ((?\~ ?t) ?\273)
|
|
|
106 ((?\~ ?u) ?\373)
|
|
|
107 ((?\~ ?z) ?\276)
|
|
|
108 ((?\~ ?\ ) ?\~)
|
|
|
109 ((?\~ ?v) ?\242) ;; v accent
|
|
|
110 ((?\~ ?\~) ?\242) ;; v accent
|
|
|
111 ((?\~ ?\.) ?\270) ;; cedilla accent
|
|
|
112 )
|
|
|
113 "Association list for ISO latin-2 accent combinations.")
|
|
|
114
|
|
|
115 (defvar iso-accents-enable '(?' ?` ?^ ?\" ?~)
|
|
|
116 "*List of accent keys that become prefixes in ISO Accents mode.
|
|
|
117 The default is (?' ?` ?^ ?\" ?~), which contains all the supported
|
|
|
118 accent keys. For certain languages, you might want to remove some of
|
|
|
119 those characters that are not actually used.")
|
|
|
120
|
|
|
121 (require 'iso-acc)
|
|
|
122
|
|
|
123 ;;; iso02-acc.el ends here
|
