/[emacs]/emacs/leim/quail/latin-pre.el
ViewVC logotype

Diff of /emacs/leim/quail/latin-pre.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.19 by handa, Tue Jul 9 00:29:36 2002 UTC revision 1.20 by fx, Wed Jul 24 19:48:41 2002 UTC
# Line 36  Line 36 
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)
# Line 58  Line 64 
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)
# Line 144  Line 149 
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)
# Line 589  Key translation rules are: Line 595  Key translation rules are:
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)
# Line 869  For example, the character named `aogone Line 875  For example, the character named `aogone
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)

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26