Mercurial > emacs

comparison leim/quail/greek.el @ 42639:57bd6e9aaff5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Changed the behavior of the "greek" input method, to consider the "accent" and "diaeresis" as prefix keys. A new method (named "greek-postfix") was added which implements the old behavior. Also changed the mapping of the "Q/q" key to produce the ":/;" characters, as is customary in greek keyboards.
author Eli Zaretskii <eliz@gnu.org>
date Thu, 10 Jan 2002 09:26:48 +0000
parents 2ebf10c960af
children 23a1cea22d13
comparison
equal deleted inserted replaced
42638:bdf1f3b7fc54 42639:57bd6e9aaff5
1039 In the right of ,Fk(B key is a combination key, where 1039 In the right of ,Fk(B key is a combination key, where
1040 ,F4(B acute 1040 ,F4(B acute
1041 ,F((B diaresis 1041 ,F((B diaresis
1042 1042
1043 e.g. 1043 e.g.
1044 ,Fa(B + ,F4(B -> ,F\(B 1044 ,F4(B + ,Fa(B -> ,F\(B
1045 ,Fi(B + ,F((B -> ,Fz(B 1045 ,F((B + ,Fi(B -> ,Fz(B
1046 ,Fi(B + ,F((B + ,F4(B -> ,F@(B" 1046 ,F((B + ,F4(B + ,Fi(B -> ,F@(B"
1047 nil t t t t nil nil nil nil nil t) 1047 nil t t t t nil nil nil nil nil t)
1048 1048
1049 ;; 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ `~ 1049 ;; 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ `~
1050 ;; ,F7/(B ,FrS(B ,FeE(B ,FqQ(B ,FtT(B ,FuU(B ,FhH(B ,FiI(B ,FoO(B ,FpP(B [{ ]} 1050 ;; ;: ,FrS(B ,FeE(B ,FqQ(B ,FtT(B ,FuU(B ,FhH(B ,FiI(B ,FoO(B ,FpP(B [{ ]}
1051 ;; ,FaA(B ,FsS(B ,FdD(B ,FvV(B ,FcC(B ,FgG(B ,FnN(B ,FjJ(B ,FkK(B ,F4((B '" \| 1051 ;; ,FaA(B ,FsS(B ,FdD(B ,FvV(B ,FcC(B ,FgG(B ,FnN(B ,FjJ(B ,FkK(B ,F4((B '" \|
1052 ;; ,FfF(B ,FwW(B ,FxX(B ,FyY(B ,FbB(B ,FmM(B ,FlL(B ,; .: /? 1052 ;; ,FfF(B ,FwW(B ,FxX(B ,FyY(B ,FbB(B ,FmM(B ,FlL(B ,< .> /?
1053 1053
1054 (quail-define-rules 1054 (quail-define-rules
1055 ("1" ?1) 1055 ("1" ?1)
1056 ("2" ?2) 1056 ("2" ?2)
1057 ("3" ?3) 1057 ("3" ?3)
1063 ("9" ?9) 1063 ("9" ?9)
1064 ("0" ?0) 1064 ("0" ?0)
1065 ("-" ?-) 1065 ("-" ?-)
1066 ("=" ?=) 1066 ("=" ?=)
1067 ("`" ?`) 1067 ("`" ?`)
1068 ("q" ?,F7(B) 1068 ("q" ?\;)
1069 ("w" ?,Fr(B) 1069 ("w" ?,Fr(B)
1070 ("e" ?,Fe(B) 1070 ("e" ?,Fe(B)
1071 ("r" ?,Fq(B) 1071 ("r" ?,Fq(B)
1072 ("t" ?,Ft(B) 1072 ("t" ?,Ft(B)
1073 ("y" ?,Fu(B) 1073 ("y" ?,Fu(B)
1111 ("(" ?\() 1111 ("(" ?\()
1112 (")" ?\)) 1112 (")" ?\))
1113 ("_" ?_) 1113 ("_" ?_)
1114 ("+" ?+) 1114 ("+" ?+)
1115 ("~" ?~) 1115 ("~" ?~)
1116 ("Q" ?,F/(B) 1116 ("Q" ?:)
1117 ("W" ?,FS(B) 1117 ("W" ?,FS(B)
1118 ("E" ?,FE(B) 1118 ("E" ?,FE(B)
1119 ("R" ?,FQ(B) 1119 ("R" ?,FQ(B)
1120 ("T" ?,FT(B) 1120 ("T" ?,FT(B)
1121 ("Y" ?,FU(B) 1121 ("Y" ?,FU(B)
1142 ("C" ?,FX(B) 1142 ("C" ?,FX(B)
1143 ("V" ?,FY(B) 1143 ("V" ?,FY(B)
1144 ("B" ?,FB(B) 1144 ("B" ?,FB(B)
1145 ("N" ?,FM(B) 1145 ("N" ?,FM(B)
1146 ("M" ?,FL(B) 1146 ("M" ?,FL(B)
1147 ("<" ?\;) 1147 ("<" ?<)
1148 (">" ?:) 1148 (">" ?>)
1149 ("?" ??)
1150
1151 (";a" ?,F\(B)
1152 (";e" ?,F](B)
1153 (";h" ?,F^(B)
1154 (";i" ?,F_(B)
1155 (";o" ?,F|(B)
1156 (";y" ?,F}(B)
1157 (";v" ?,F~(B)
1158 (";A" ?,F6(B)
1159 (";E" ?,F8(B)
1160 (";H" ?,F9(B)
1161 (";I" ?,F:(B)
1162 (";O" ?,F<(B)
1163 (";Y" ?,F>(B)
1164 (";V" ?,F?(B)
1165 (":i" ?,Fz(B)
1166 (":y" ?,F{(B)
1167 (":I" ?,FZ(B)
1168 (":Y" ?,F[(B)
1169 (";:i" ?,F@(B)
1170 (":;i" ?,F@(B)
1171 (";:y" ?,F`(B)
1172 (":;y" ?,F`(B))
1173
1174 (quail-define-package
1175 "greek-postfix" "GreekPost" ",FX(B" nil
1176 ",FEkkgmij\(B: Greek keyboard layout with postfix accents (ISO 8859-7)
1177 --------------
1178
1179 In the right of ,Fk(B key is a combination key, where
1180 ,F4(B acute
1181 ,F((B diaresis
1182
1183 e.g.
1184 ,Fa(B + ,F4(B -> ,F\(B
1185 ,Fi(B + ,F((B -> ,Fz(B
1186 ,Fi(B + ,F((B + ,F4(B -> ,F@(B"
1187 nil t t t t nil nil nil nil nil t)
1188
1189 ;; 1! 2@ 3# 4$ 5% 6^ 7& 8* 9( 0) -_ =+ `~
1190 ;; ,F7/(B ,FrS(B ,FeE(B ,FqQ(B ,FtT(B ,FuU(B ,FhH(B ,FiI(B ,FoO(B ,FpP(B [{ ]}
1191 ;; ,FaA(B ,FsS(B ,FdD(B ,FvV(B ,FcC(B ,FgG(B ,FnN(B ,FjJ(B ,FkK(B ,F4((B '" \|
1192 ;; ,FfF(B ,FwW(B ,FxX(B ,FyY(B ,FbB(B ,FmM(B ,FlL(B ,; .: /?
1193
1194 (quail-define-rules
1195 ("1" ?1)
1196 ("2" ?2)
1197 ("3" ?3)
1198 ("4" ?4)
1199 ("5" ?5)
1200 ("6" ?6)
1201 ("7" ?7)
1202 ("8" ?8)
1203 ("9" ?9)
1204 ("0" ?0)
1205 ("-" ?-)
1206 ("=" ?=)
1207 ("`" ?`)
1208 ("q" ?\;)
1209 ("w" ?,Fr(B)
1210 ("e" ?,Fe(B)
1211 ("r" ?,Fq(B)
1212 ("t" ?,Ft(B)
1213 ("y" ?,Fu(B)
1214 ("u" ?,Fh(B)
1215 ("i" ?,Fi(B)
1216 ("o" ?,Fo(B)
1217 ("p" ?,Fp(B)
1218 ("[" ?\[)
1219 ("]" ?\])
1220 ("a" ?,Fa(B)
1221 ("s" ?,Fs(B)
1222 ("d" ?,Fd(B)
1223 ("f" ?,Fv(B)
1224 ("g" ?,Fc(B)
1225 ("h" ?,Fg(B)
1226 ("j" ?,Fn(B)
1227 ("k" ?,Fj(B)
1228 ("l" ?,Fk(B)
1229 (";" ?,F4(B)
1230 ("'" ?')
1231 ("\\" ?\\)
1232 ("z" ?,Ff(B)
1233 ("x" ?,Fw(B)
1234 ("c" ?,Fx(B)
1235 ("v" ?,Fy(B)
1236 ("b" ?,Fb(B)
1237 ("n" ?,Fm(B)
1238 ("m" ?,Fl(B)
1239 ("," ?,)
1240 ("." ?.)
1241 ("/" ?/)
1242
1243 ("!" ?!)
1244 ("@" ?@)
1245 ("#" ?#)
1246 ("$" ?$)
1247 ("%" ?%)
1248 ("^" ?^)
1249 ("&" ?&)
1250 ("*" ?*)
1251 ("(" ?\()
1252 (")" ?\))
1253 ("_" ?_)
1254 ("+" ?+)
1255 ("~" ?~)
1256 ("Q" ?:)
1257 ("W" ?,FS(B)
1258 ("E" ?,FE(B)
1259 ("R" ?,FQ(B)
1260 ("T" ?,FT(B)
1261 ("Y" ?,FU(B)
1262 ("U" ?,FH(B)
1263 ("I" ?,FI(B)
1264 ("O" ?,FO(B)
1265 ("P" ?,FP(B)
1266 ("{" ?{)
1267 ("}" ?})
1268 ("A" ?,FA(B)
1269 ("S" ?,FS(B)
1270 ("D" ?,FD(B)
1271 ("F" ?,FV(B)
1272 ("G" ?,FC(B)
1273 ("H" ?,FG(B)
1274 ("J" ?,FN(B)
1275 ("K" ?,FJ(B)
1276 ("L" ?,FK(B)
1277 (":" ?,F((B)
1278 ("\"" ?\")
1279 ("|" ?|)
1280 ("Z" ?,FF(B)
1281 ("X" ?,FW(B)
1282 ("C" ?,FX(B)
1283 ("V" ?,FY(B)
1284 ("B" ?,FB(B)
1285 ("N" ?,FM(B)
1286 ("M" ?,FL(B)
1287 ("<" ?<)
1288 (">" ?>)
1149 ("?" ??) 1289 ("?" ??)
1150 1290
1151 ("a;" ?,F\(B) 1291 ("a;" ?,F\(B)
1152 ("e;" ?,F](B) 1292 ("e;" ?,F](B)
1153 ("h;" ?,F^(B) 1293 ("h;" ?,F^(B)
1165 ("i:" ?,Fz(B) 1305 ("i:" ?,Fz(B)
1166 ("y:" ?,F{(B) 1306 ("y:" ?,F{(B)
1167 ("I:" ?,FZ(B) 1307 ("I:" ?,FZ(B)
1168 ("Y:" ?,F[(B) 1308 ("Y:" ?,F[(B)
1169 ("i:;" ?,F@(B) 1309 ("i:;" ?,F@(B)
1170 ("y:;" ?,F`(B)) 1310 ("i;:" ?,F@(B)
1311 ("y:;" ?,F`(B)
1312 ("y;:" ?,F`(B))
1313
1171 1314
1172 ;;; greek.el ends here 1315 ;;; greek.el ends here