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

add ~p for \e,A6\e(B.

diff --git a/leim/ChangeLog b/leim/ChangeLog
index 292548724282e5b171a7422621a8b740422b2267..85cc15fba49942cb339f0a6d2e668044c489db5f 100644 (file)
--- 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 \e,A'\e(B and
+       add ~p for \e,A6\e(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 d68299644ac380437a8aa50de183b77abf290cfc..e9c80532b1a57cee9996c7e1c28054ca537915d1 100644 (file)
--- a/leim/quail/latin-pre.el
+++ b/leim/quail/latin-pre.el
@@ -51,7 +51,7 @@
    cedilla   |   ~    | ~c -> \e,Ag\e(B
     misc     | \" ~ /  | \"s -> \e,A_\e(B  ~d -> \e,Ap\e(B  ~t -> \e,A~\e(B  /a -> \e,Ae\e(B  /e -> \e,Af\e(B  /o -> \e,Ax\e(B
    symbol    |   ~    | ~> -> \e,A;\e(B  ~< -> \e,A+\e(B  ~! -> \e,A!\e(B  ~? -> \e,A?\e(B  ~~ -> \e,A8\e(B
-             |   ~    | ~p -> \e,A'\e(B  ~x -> \e,A$\e(B  ~. -> \e,A7\e(B  ~$ -> \e,A#\e(B  ~u -> \e,A5\e(B  
+             |   ~    | ~s -> \e,A'\e(B  ~x -> \e,A$\e(B  ~. -> \e,A7\e(B  ~$ -> \e,A#\e(B  ~u -> \e,A5\e(B  ~p -> \e,A6\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
    symbol    |   ^    | ^r -> \e,A.\e(B  ^c -> \e,A)\e(B  ^2 -> \e,A2\e(B  ^3 -> \e,A3\e(B
@@ -147,7 +147,8 @@
  ("/2" ?\e,A=\e(B)
  ("/4" ?\e,A<\e(B)
  ("/3" ?\e,A>\e(B)
- ("~p" ?\e,A'\e(B)
+ ("~s" ?\e,A'\e(B)
+ ("~p" ?\e,A6\e(B)
  ("~x" ?\e,A$\e(B)
  ("~." ?\e,A7\e(B)
  ("~$" ?\e,A#\e(B)