("latin-1-prefix"): Change ~s to give ,A'(B and

add ~p for ,A6(B.

2 files changed, 8 insertions, 2 deletions

diff --git a/leim/ChangeLog b/leim/ChangeLog
index 29254872428..85cc15fba49 100644
--- a/leim/ChangeLog
+++ b/leim/ChangeLog
@@ -1,3 +1,8 @@
+2000-08-23  Dave Love  <fx@gnu.org>
+
+        * quail/latin-pre.el ("latin-1-prefix"): Change ~s to give ,A'(B and
+        add ~p for ,A6(B.
+
 2000-07-18  Kenichi Handa  <handa@etl.go.jp>
 
         * quail/japanese.el ("japanese"): Fix docstring.
diff --git a/leim/quail/latin-pre.el b/leim/quail/latin-pre.el
index d68299644ac..e9c80532b1a 100644
--- a/leim/quail/latin-pre.el
+++ b/leim/quail/latin-pre.el
@@ -51,7 +51,7 @@
    cedilla   |   ~    | ~c -> ,Ag(B
     misc     | \" ~ /  | \"s -> ,A_(B  ~d -> ,Ap(B  ~t -> ,A~(B  /a -> ,Ae(B  /e -> ,Af(B  /o -> ,Ax(B
    symbol    |   ~    | ~> -> ,A;(B  ~< -> ,A+(B  ~! -> ,A!(B  ~? -> ,A?(B  ~~ -> ,A8(B
-             |   ~    | ~p -> ,A'(B  ~x -> ,A$(B  ~. -> ,A7(B  ~$ -> ,A#(B  ~u -> ,A5(B  
+             |   ~    | ~s -> ,A'(B  ~x -> ,A$(B  ~. -> ,A7(B  ~$ -> ,A#(B  ~u -> ,A5(B  ~p -> ,A6(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
    symbol    |   ^    | ^r -> ,A.(B  ^c -> ,A)(B  ^2 -> ,A2(B  ^3 -> ,A3(B
@@ -147,7 +147,8 @@
  ("/2" ?,A=(B)
  ("/4" ?,A<(B)
  ("/3" ?,A>(B)
- ("~p" ?,A'(B)
+ ("~s" ?,A'(B)
+ ("~p" ?,A6(B)
  ("~x" ?,A$(B)
  ("~." ?,A7(B)
  ("~$" ?,A#(B)