[Emacs-diffs] Changes to emacs/leim/quail/latin-pre.el

[Dave Love]

Index: emacs/leim/quail/latin-pre.el
diff -c emacs/leim/quail/latin-pre.el:1.19 emacs/leim/quail/latin-pre.el:1.20
*** emacs/leim/quail/latin-pre.el:1.19  Mon Jul  8 20:29:36 2002
--- emacs/leim/quail/latin-pre.el       Wed Jul 24 15:48:41 2002
***************
*** 36,41 ****
--- 36,47 ----
  ;;
  ;; latin-[89]-prefix: Dave Love <address@hidden>
  
+ ;; 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)
***************
*** 58,68 ****
               |   ~    | ~p -> ,A6(B  ~- -> ,A-(B  ~= -> ,A/(B  ~| -> 
,A&(B
     symbol    |  _ /   | _o -> ,A:(B  _a -> ,A*(B  // -> ,A0(B  /\\ -> 
,AW(B  _y -> ,A%(B
               |  _ /   | _: -> ,Aw(B  /c -> ,A"(B  /2 -> ,A=(B  /4 -> 
,A<(B  /3 -> ,A>(B
!              |  _ /   | /= => ,A,(B
     symbol    |   ^    | ^r -> ,A.(B  ^c -> ,A)(B  ^1 -> ,A9(B  ^2 -> 
,A2(B  ^3 -> ,A3(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" ?,AA(B)
   ("'E" ?,AI(B)
--- 64,73 ----
               |   ~    | ~p -> ,A6(B  ~- -> ,A-(B  ~= -> ,A/(B  ~| -> 
,A&(B
     symbol    |  _ /   | _o -> ,A:(B  _a -> ,A*(B  // -> ,A0(B  /\\ -> 
,AW(B  _y -> ,A%(B
               |  _ /   | _: -> ,Aw(B  /c -> ,A"(B  /2 -> ,A=(B  /4 -> 
,A<(B  /3 -> ,A>(B
!              |  _ /   | /= -> ,A,(B
     symbol    |   ^    | ^r -> ,A.(B  ^c -> ,A)(B  ^1 -> ,A9(B  ^2 -> 
,A2(B  ^3 -> ,A3(B
  " nil t nil nil nil nil nil nil nil nil t)
  
  (quail-define-rules
   ("'A" ?,AA(B)
   ("'E" ?,AI(B)
***************
*** 144,149 ****
--- 149,155 ----
   ("/ " ?/)
   ("_o" ?,A:(B)
   ("_a" ?,A*(B)
+  ("_ " ?,A (B)
  ;; Symbols added by Roland Smith <address@hidden>
   ("_+" ?,A1(B)
   ("_y" ?,A%(B)
***************
*** 589,595 ****
    circumflex |   ^    | ^a -> ,Cb(B
    diaeresis  |   \"    | \"a -> ,Cd(B   \"\" -> ,C((B
     cedilla   |   ~    | ~c -> ,Cg(B   ~s -> ,C:(B   ~~ -> ,C8(B
!   dot above  |   .    | /g -> ,Cu(B   .g -> ,Cu(B
      misc     | \" ~ /  | \"s -> ,C_(B   ~g -> ,C;(B   ~u -> ,C}(B   /h 
-> ,C1(B   /i -> ,C9(B
     symbol    |   ~    | ~` -> ,C"(B   /# -> ,C#(B   /$ -> ,C$(B   // -> 
,C0(B
  " nil t nil nil nil nil nil nil nil nil t)
--- 595,601 ----
    circumflex |   ^    | ^a -> ,Cb(B
    diaeresis  |   \"    | \"a -> ,Cd(B   \"\" -> ,C((B
     cedilla   |   ~    | ~c -> ,Cg(B   ~s -> ,C:(B   ~~ -> ,C8(B
!   dot above  |   / .  | /g -> ,Cu(B   .o -> ,Cu(B
      misc     | \" ~ /  | \"s -> ,C_(B   ~g -> ,C;(B   ~u -> ,C}(B   /h 
-> ,C1(B   /i -> ,C9(B
     symbol    |   ~    | ~` -> ,C"(B   /# -> ,C#(B   /$ -> ,C$(B   // -> 
,C0(B
  " nil t nil nil nil nil nil nil nil nil t)
***************
*** 869,875 ****
     symbol    |   ^    | ^r -> ,_.(B  ^c -> ,_)(B
  " nil t nil nil nil nil nil nil nil nil t)
  
! ;; Basically following Latin-1 plus dottiness from Latin-3.
  (quail-define-rules
   (".B" ?,_!(B)
   (".b" ?,_"(B)
--- 875,881 ----
     symbol    |   ^    | ^r -> ,_.(B  ^c -> ,_)(B
  " nil t nil nil nil nil nil nil nil nil t)
  
! ;; Basically following Latin-1, plus dottiness from Latin-3.
  (quail-define-rules
   (".B" ?,_!(B)
   (".b" ?,_"(B)