Delete undesirable links.

[bpt/emacs.git] / leim / quail / latin-post.el

diff --git a/leim/quail/latin-post.el b/leim/quail/latin-post.el
index 0d0eeeb..1ffa782 100644 (file)
--- a/leim/quail/latin-post.el
+++ b/leim/quail/latin-post.el
@@ -1,4 +1,4 @@
-;; Quail packages for inputting various European characters.
+;;; latin-post.el --- Quail packages for inputting various European characters  -*-coding: iso-2022-7bit;-*-
 
 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
 ;; Licensed to the Free Software Foundation.
@@ -24,6 +24,10 @@
 
 ;; Author: TAKAHASHI Naoto <ntakahas@etl.go.jp>
 
+;;; Commentary:
+
+;;; Code:
+
 (require 'quail)
 
 (quail-define-package
@@ -39,7 +43,7 @@
   tilde      |    ~    | a~ -> \e,Ac\e(B
   cedilla    |    ,    | c, -> \e,Ag\e(B
   nordic     |    /    | 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
-  others     |   /<>   | s/ -> \e,A_\e(B   ?/ -> \e,A?\e(B   !/ -> \e,A!\e(B
+  others     |    /    | s/ -> \e,A_\e(B   ?/ -> \e,A?\e(B   !/ -> \e,A!\e(B   // -> \e,A0\e(B
              | various | << -> \e,A+\e(B   >> -> \e,A;\e(B   o_ -> \e,A:\e(B   a_ -> \e,A*\e(B
 
 Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
@@ -114,6 +118,7 @@ Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
  (">>" ?\e,A;\e(B)
  ("o_" ?\e,A:\e(B)
  ("a_" ?\e,A*\e(B)
+ ("//" ?\e,A0\e(B)
 
  ("A``" ["A`"])
  ("A''" ["A'"])
@@ -183,6 +188,7 @@ Doubling the postfix separates the letter and postfix: e.g. a'' -> a'
  (">>>" [">>"])
  ("o__" ["o_"])
  ("a__" ["a_"])
+ ("///" ["//"])
  )
 
 (quail-define-package
@@ -910,7 +916,7 @@ Doubling the postfix separates the letter and postfix: e.g. aee -> ae
  "Esperanto input method with postfix modifiers
 
 A following ^ or x will produce an accented character,
-e.g. c^ -> \e,Cf\e(B, gx -> \e,Cx\e(B, u^ -> \e,C}\e(B.
+e.g. c^ -> \e,Cf\e(B   gx -> \e,Cx\e(B   u^ -> \e,C}\e(B.
 
 Doubling the postfix separates the letter and postfix,
 e.g. a'' -> a'.
@@ -996,7 +1002,7 @@ OEE -> OE
  "French (Fran\e,Ag\e(Bais) input method with postfix modifiers
 
 ` pour grave, ' pour aigu, ^ pour circonflexe, et \" pour tr\e,Ai\e(Bma.
-Par exemple: a` -> \e,A`\e(B, e' -> \e,Ai\e(B.
+Par exemple: a` -> \e,A`\e(B   e' -> \e,Ai\e(B.
 
 \e,AG\e(B, \e,A+\e(B, et \e,A;\e(B sont produits par C,, <<, et >>.
 
@@ -1214,7 +1220,7 @@ Doubling the postfix separates the letter and postfix: e.g. a`` -> a`
 
 (quail-define-package
  "norwegian-postfix" "Latin-1" "NO<" t
- "Norwegian (Norsk) input method (rule: AE->\e,AF\e(B, OE->\e,AX\e(B, AA->\e,AE\e(B, E'->\e,AI\e(B)
+ "Norwegian (Norsk) input method (rule: AE->\e,AF\e(B   OE->\e,AX\e(B   AA->\e,AE\e(B   E'->\e,AI\e(B)
 
 Doubling the postfix separates the letter and postfix: e.g. aee -> ae
 "
@@ -1253,7 +1259,7 @@ o\" -> \e,Av\e(B
 e' -> \e,Ai\e(B
 
 Doubling the postfix separates the letter and postfix:
-aee -> ae, o\"\" -> o\", etc.
+aee -> ae   o\"\" -> o\"   etc.
 " nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
@@ -1298,7 +1304,7 @@ N~ -> \e,AQ\e(B
 ?/ -> \e,A?\e(B
 
 Doubling the postfix separates the letter and postfix:
-a'' -> a', n~~ -> n~, etc.
+a'' -> a'   n~~ -> n~, etc.
 " nil t nil nil nil nil nil nil nil nil t)
 
 (quail-define-rules
@@ -1312,6 +1318,8 @@ a'' -> a', n~~ -> n~, etc.
  ("o'" ?\e,As\e(B)
  ("U'" ?\e,AZ\e(B)
  ("u'" ?\e,Az\e(B)
+ ("U\"" ?\e,C\\e(B)
+ ("u\"" ?\e,C|\e(B)
  ("N~" ?\e,AQ\e(B)
  ("n~" ?\e,Aq\e(B)
  ("?/" ?\e,A?\e(B)
@@ -1327,6 +1335,8 @@ a'' -> a', n~~ -> n~, etc.
  ("o''" ["o'"])
  ("U''" ["U'"])
  ("u''" ["u'"])
+ ("U\"" ["U\""])
+ ("u\"" ["U\""])
  ("N~~" ["N~"])
  ("n~~" ["n~"])
  ("?//" ["?/"])
@@ -1335,7 +1345,7 @@ a'' -> a', n~~ -> n~, etc.
 
 (quail-define-package
  "swedish-postfix" "Latin-1" "SV<" t
- "Swedish (Svenska) input method (rule: AA -> \e,AE\e(B, AE -> \e,AD\e(B, OE -> \e,AV\e(B, E' -> \e,AI\e(B)
+ "Swedish (Svenska) input method (rule: AA -> \e,AE\e(B   AE -> \e,AD\e(B   OE -> \e,AV\e(B   E' -> \e,AI\e(B)
 
 Doubling the postfix separates the letter and postfix: e.g. aee -> ae
 " nil t nil nil nil nil nil nil nil nil t)
@@ -1361,8 +1371,11 @@ Doubling the postfix separates the letter and postfix: e.g. aee -> ae
  )
 
 (quail-define-package
- "turkish-postfix" "Latin-3" "TR<" t
- "Turkish (T\e,C|\e(Brk\e,Cg\e(Be) input method with postfix modifiers
+ "turkish-latin-3-postfix" "Latin-3" "TR3<" t
+ "Turkish (T\e,C|\e(Brk\e,Cg\e(Be) input method with postfix modifiers.
+
+This is for those who use Latin-3 (ISO-8859-3) for Turkish.  If you
+use Latin-5 (ISO-8859-9), you should use \"turkish-postfix\" instead.
 
 Note for I, \e,C9\e(B, \e,C)\e(B, i.
 
@@ -1419,6 +1432,69 @@ Doubling the postfix separates the letter and postfix: e.g. a^^ -> a^
  ("u^^" ["u^"])
  )
 
+(quail-define-package
+ "turkish-postfix" "Latin-5" "TR<" t
+ "Turkish (T\e,M|\e(Brk\e,Mg\e(Be) input method with postfix modifiers.
+
+This is for those who use Latin-5 (ISO-8859-9) for Turkish.  If you
+use Latin-3 (ISO-8859-3), you should use \"turkish-latin-3-postfix\"
+instead.
+
+Note for I, \e,M}\e(B, \e,M]\e(B, i.
+
+A^ -> \e,MB\e(B
+C, -> \e,MG\e(B
+G^ -> \e,MP\e(B
+I  -> I
+i  -> \e,M}\e(B
+I. -> \e,M]\e(B
+i. -> i
+O\" -> \e,MV\e(B
+S, -> \e,M^\e(B
+U\" -> \e,M\\e(B
+U^ -> \e,M[\e(B
+
+Doubling the postfix separates the letter and postfix: e.g. a^^ -> a^
+" nil t nil nil nil nil nil nil nil nil t)
+
+(quail-define-rules
+ ("A^" ?\e,MB\e(B)
+ ("a^" ?\e,Mb\e(B)
+ ("C," ?\e,MG\e(B)
+ ("c," ?\e,Mg\e(B)
+ ("G^" ?\e,MP\e(B)
+ ("g^" ?\e,Mp\e(B)
+ ("I." ?\e,M]\e(B)
+ ("i" ?\e,M}\e(B)
+ ("i." ?i)
+ ("O\"" ?\e,MV\e(B)
+ ("o\"" ?\e,Mv\e(B)
+ ("S," ?\e,M^\e(B)
+ ("s," ?\e,M~\e(B)
+ ("U\"" ?\e,M\\e(B)
+ ("u\"" ?\e,M|\e(B)
+ ("U^" ?\e,M[\e(B)
+ ("u^" ?\e,M{\e(B)
+
+ ("A^^" ["A^"])
+ ("a^^" ["a^"])
+ ("C,," ["C,"])
+ ("c,," ["c,"])
+ ("G^^" ["G^"])
+ ("g^^" ["g^"])
+ ("I.." ["I."])
+ ("i" ["i"])
+ ("i.." ["i."])
+ ("O\"\"" ["O\""])
+ ("o\"\"" ["o\""])
+ ("S,," ["S,"])
+ ("s,," ["s,"])
+ ("U\"\"" ["U\""])
+ ("u\"\"" ["u\""])
+ ("U^^" ["U^"])
+ ("u^^" ["u^"])
+ )
+
 (quail-define-package
  "british" "Latin-1" "\e,A#\e(B@" t
  "British English input method with Latin-1 character \e,A#\e(B (# -> \e,A#\e(B)"
@@ -1792,8 +1868,8 @@ Dead accent is right to \e,Af\e(B." nil t t t t nil nil nil nil nil t)
 
 ;;
 (quail-define-package
- "finish-keyboard" "Latin-1" "FI@" t
- "Finish input method simulating SUN Finnish/Swedish keyboard"
+ "finnish-keyboard" "Latin-1" "FI@" t
+ "Finnish input method simulating SUN Finnish/Swedish keyboard"
  nil t t t t nil nil nil nil nil t)
 
 ;; 1!  2"  3#  4\e,A$\e(B  5%  6&  7/  8(  9)  0=  +?  \e,A'=\e(B  ~^
@@ -2049,3 +2125,5 @@ Dead accent is right to \e,Af\e(B." nil t t t t nil nil nil nil nil t)
  (">" ?V)
  ("?" ?Z)
  )
+
+;;; latin-post.el ends here