36 |
;; |
;; |
37 |
;; latin-[89]-prefix: Dave Love <fx@gnu.org> |
;; latin-[89]-prefix: Dave Love <fx@gnu.org> |
38 |
|
|
39 |
|
;; You might make extra input sequences on the basis of the X |
40 |
|
;; locale/*/Compose files (which have both prefix and postfix |
41 |
|
;; sequences), but bear in mind that sequences which are logical in |
42 |
|
;; that context may not be sensible when they're not signalled with |
43 |
|
;; the Compose key. An example is a double space for NBSP. |
44 |
|
|
45 |
;;; Code: |
;;; Code: |
46 |
|
|
47 |
(require 'quail) |
(require 'quail) |
64 |
| ~ | ~p -> ,A6(B ~- -> ,A-(B ~= -> ,A/(B ~| -> ,A&(B |
| ~ | ~p -> ,A6(B ~- -> ,A-(B ~= -> ,A/(B ~| -> ,A&(B |
65 |
symbol | _ / | _o -> ,A:(B _a -> ,A*(B // -> ,A0(B /\\ -> ,AW(B _y -> ,A%(B |
symbol | _ / | _o -> ,A:(B _a -> ,A*(B // -> ,A0(B /\\ -> ,AW(B _y -> ,A%(B |
66 |
| _ / | _: -> ,Aw(B /c -> ,A"(B /2 -> ,A=(B /4 -> ,A<(B /3 -> ,A>(B |
| _ / | _: -> ,Aw(B /c -> ,A"(B /2 -> ,A=(B /4 -> ,A<(B /3 -> ,A>(B |
67 |
| _ / | /= => ,A,(B |
| _ / | /= -> ,A,(B |
68 |
symbol | ^ | ^r -> ,A.(B ^c -> ,A)(B ^1 -> ,A9(B ^2 -> ,A2(B ^3 -> ,A3(B |
symbol | ^ | ^r -> ,A.(B ^c -> ,A)(B ^1 -> ,A9(B ^2 -> ,A2(B ^3 -> ,A3(B |
69 |
" nil t nil nil nil nil nil nil nil nil t) |
" nil t nil nil nil nil nil nil nil nil t) |
70 |
|
|
|
;; Fixme: should we have non-break space somehow? If so, how? |
|
71 |
(quail-define-rules |
(quail-define-rules |
72 |
("'A" ?,AA(B) |
("'A" ?,AA(B) |
73 |
("'E" ?,AI(B) |
("'E" ?,AI(B) |
149 |
("/ " ?/) |
("/ " ?/) |
150 |
("_o" ?,A:(B) |
("_o" ?,A:(B) |
151 |
("_a" ?,A*(B) |
("_a" ?,A*(B) |
152 |
|
("_ " ?,A (B) |
153 |
;; Symbols added by Roland Smith <rsmith@xs4all.nl> |
;; Symbols added by Roland Smith <rsmith@xs4all.nl> |
154 |
("_+" ?,A1(B) |
("_+" ?,A1(B) |
155 |
("_y" ?,A%(B) |
("_y" ?,A%(B) |
595 |
circumflex | ^ | ^a -> ,Cb(B |
circumflex | ^ | ^a -> ,Cb(B |
596 |
diaeresis | \" | \"a -> ,Cd(B \"\" -> ,C((B |
diaeresis | \" | \"a -> ,Cd(B \"\" -> ,C((B |
597 |
cedilla | ~ | ~c -> ,Cg(B ~s -> ,C:(B ~~ -> ,C8(B |
cedilla | ~ | ~c -> ,Cg(B ~s -> ,C:(B ~~ -> ,C8(B |
598 |
dot above | . | /g -> ,Cu(B .g -> ,Cu(B |
dot above | / . | /g -> ,Cu(B .o -> ,Cu(B |
599 |
misc | \" ~ / | \"s -> ,C_(B ~g -> ,C;(B ~u -> ,C}(B /h -> ,C1(B /i -> ,C9(B |
misc | \" ~ / | \"s -> ,C_(B ~g -> ,C;(B ~u -> ,C}(B /h -> ,C1(B /i -> ,C9(B |
600 |
symbol | ~ | ~` -> ,C"(B /# -> ,C#(B /$ -> ,C$(B // -> ,C0(B |
symbol | ~ | ~` -> ,C"(B /# -> ,C#(B /$ -> ,C$(B // -> ,C0(B |
601 |
" nil t nil nil nil nil nil nil nil nil t) |
" nil t nil nil nil nil nil nil nil nil t) |
875 |
symbol | ^ | ^r -> ,_.(B ^c -> ,_)(B |
symbol | ^ | ^r -> ,_.(B ^c -> ,_)(B |
876 |
" nil t nil nil nil nil nil nil nil nil t) |
" nil t nil nil nil nil nil nil nil nil t) |
877 |
|
|
878 |
;; Basically following Latin-1 plus dottiness from Latin-3. |
;; Basically following Latin-1, plus dottiness from Latin-3. |
879 |
(quail-define-rules |
(quail-define-rules |
880 |
(".B" ?,_!(B) |
(".B" ?,_!(B) |
881 |
(".b" ?,_"(B) |
(".b" ?,_"(B) |