;;
;; latin-[89]-prefix: Dave Love <fx@gnu.org>
+;; You might make extra input sequences on the basis of the X
+;; locale/*/Compose files (which have both prefix and postfix
+;; sequences), but bear in mind that sequences which are logical in
+;; that context may not be sensible when they're not signalled with
+;; the Compose key. An example is a double space for NBSP.
+
;;; Code:
(require 'quail)
| ~ | ~p -> \e,A6\e(B ~- -> \e,A-\e(B ~= -> \e,A/\e(B ~| -> \e,A&\e(B
symbol | _ / | _o -> \e,A:\e(B _a -> \e,A*\e(B // -> \e,A0\e(B /\\ -> \e,AW\e(B _y -> \e,A%\e(B
| _ / | _: -> \e,Aw\e(B /c -> \e,A"\e(B /2 -> \e,A=\e(B /4 -> \e,A<\e(B /3 -> \e,A>\e(B
- | _ / | /= => \e,A,\e(B
+ | _ / | /= -> \e,A,\e(B
symbol | ^ | ^r -> \e,A.\e(B ^c -> \e,A)\e(B ^1 -> \e,A9\e(B ^2 -> \e,A2\e(B ^3 -> \e,A3\e(B
" nil t nil nil nil nil nil nil nil nil t)
-;; Fixme: should we have non-break space somehow? If so, how?
(quail-define-rules
("'A" ?\e,AA\e(B)
("'E" ?\e,AI\e(B)
("/ " ?/)
("_o" ?\e,A:\e(B)
("_a" ?\e,A*\e(B)
+ ("_ " ?\e,A \e(B)
;; Symbols added by Roland Smith <rsmith@xs4all.nl>
("_+" ?\e,A1\e(B)
("_y" ?\e,A%\e(B)
circumflex | ^ | ^a -> \e,Cb\e(B
diaeresis | \" | \"a -> \e,Cd\e(B \"\" -> \e,C(\e(B
cedilla | ~ | ~c -> \e,Cg\e(B ~s -> \e,C:\e(B ~~ -> \e,C8\e(B
- dot above | . | /g -> \e,Cu\e(B .g -> \e,Cu\e(B
+ dot above | / . | /g -> \e,Cu\e(B .o -> \e,Cu\e(B
misc | \" ~ / | \"s -> \e,C_\e(B ~g -> \e,C;\e(B ~u -> \e,C}\e(B /h -> \e,C1\e(B /i -> \e,C9\e(B
symbol | ~ | ~` -> \e,C"\e(B /# -> \e,C#\e(B /$ -> \e,C$\e(B // -> \e,C0\e(B
" nil t nil nil nil nil nil nil nil nil t)
symbol | ^ | ^r -> \e,_.\e(B ^c -> \e,_)\e(B
" nil t nil nil nil nil nil nil nil nil t)
-;; Basically following Latin-1 plus dottiness from Latin-3.
+;; Basically following Latin-1, plus dottiness from Latin-3.
(quail-define-rules
(".B" ?\e,_!\e(B)
(".b" ?\e,_"\e(B)