[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/leim/quail/latin-pre.el
From: |
Dave Love |
Subject: |
[Emacs-diffs] Changes to emacs/leim/quail/latin-pre.el |
Date: |
Wed, 24 Jul 2002 15:48:41 -0400 |
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)