Changed the behavior of the "greek" input

method, to consider the "accent" and "diaeresis" as prefix
keys.  A new method (named "greek-postfix") was added which
implements the old behavior.  Also changed the mapping of the
"Q/q" key to produce the ":/;" characters, as is customary in
greek keyboards.

diff --git a/leim/ChangeLog b/leim/ChangeLog
index 6d869f3ce2ee7cf58b61208be775d75d8a7f246e..cef10e55622c56020604dce9e340281279f4b09a 100644 (file)
--- a/leim/ChangeLog
+++ b/leim/ChangeLog
@@ -1,3 +1,12 @@
+2002-01-10  Nick Patavalis  <npat@inaccessnetworks.com>
+
+       * quail/greek.el: Changed the behavior of the "greek" input
+       method, to consider the "accent" and "diaeresis" as prefix
+       keys.  A new method (named "greek-postfix") was added which
+       implements the old behavior.  Also changed the mapping of the
+       "Q/q" key to produce the ":/;" characters, as is customary in
+       greek keyboards.
+
 2002-01-07  Jaeyoun Chung  <jay@kldp.org>
 
        * quail/hangul.el: removed key sequence mapping for O[rsfaqtTd].

diff --git a/leim/quail/greek.el b/leim/quail/greek.el
index 526e6113d7f353e7ac237705854e8a42364d01ad..a1fec0b27c3a76ecca064e956ef65161e68a5be4 100644 (file)
--- a/leim/quail/greek.el
+++ b/leim/quail/greek.el
@@ -1036,6 +1036,146 @@ nil t t nil nil nil nil nil nil nil t)
  "\e,FEkkgmij\\e(B: Greek keyboard layout (ISO 8859-7)
 --------------
 
+In the right of \e,Fk\e(B key is a combination key, where
+ \e,F4\e(B acute
+ \e,F(\e(B diaresis
+
+e.g.
+ \e,F4\e(B + \e,Fa\e(B -> \e,F\\e(B
+ \e,F(\e(B + \e,Fi\e(B -> \e,Fz\e(B
+ \e,F(\e(B + \e,F4\e(B + \e,Fi\e(B -> \e,F@\e(B"
+ nil t t t t nil nil nil nil nil t)
+
+;; 1!  2@  3#  4$  5%  6^  7&  8*  9(  0)  -_  =+  `~
+;;  ;:  \e,FrS\e(B  \e,FeE\e(B  \e,FqQ\e(B  \e,FtT\e(B  \e,FuU\e(B  \e,FhH\e(B  \e,FiI\e(B  \e,FoO\e(B  \e,FpP\e(B  [{  ]}
+;;   \e,FaA\e(B  \e,FsS\e(B  \e,FdD\e(B  \e,FvV\e(B  \e,FcC\e(B  \e,FgG\e(B  \e,FnN\e(B  \e,FjJ\e(B  \e,FkK\e(B  \e,F4(\e(B  '"  \|
+;;    \e,FfF\e(B  \e,FwW\e(B  \e,FxX\e(B  \e,FyY\e(B  \e,FbB\e(B  \e,FmM\e(B  \e,FlL\e(B  ,<  .>  /?  
+
+(quail-define-rules
+ ("1" ?1)
+ ("2" ?2)
+ ("3" ?3)
+ ("4" ?4)
+ ("5" ?5)
+ ("6" ?6)
+ ("7" ?7)
+ ("8" ?8)
+ ("9" ?9)
+ ("0" ?0)
+ ("-" ?-)
+ ("=" ?=)
+ ("`" ?`)
+ ("q" ?\;)
+ ("w" ?\e,Fr\e(B)
+ ("e" ?\e,Fe\e(B)
+ ("r" ?\e,Fq\e(B)
+ ("t" ?\e,Ft\e(B)
+ ("y" ?\e,Fu\e(B)
+ ("u" ?\e,Fh\e(B)
+ ("i" ?\e,Fi\e(B)
+ ("o" ?\e,Fo\e(B)
+ ("p" ?\e,Fp\e(B)
+ ("[" ?\[)
+ ("]" ?\])
+ ("a" ?\e,Fa\e(B)
+ ("s" ?\e,Fs\e(B)
+ ("d" ?\e,Fd\e(B)
+ ("f" ?\e,Fv\e(B)
+ ("g" ?\e,Fc\e(B)
+ ("h" ?\e,Fg\e(B)
+ ("j" ?\e,Fn\e(B)
+ ("k" ?\e,Fj\e(B)
+ ("l" ?\e,Fk\e(B)
+ (";" ?\e,F4\e(B)
+ ("'" ?')
+ ("\\" ?\\)
+ ("z" ?\e,Ff\e(B)
+ ("x" ?\e,Fw\e(B)
+ ("c" ?\e,Fx\e(B)
+ ("v" ?\e,Fy\e(B)
+ ("b" ?\e,Fb\e(B)
+ ("n" ?\e,Fm\e(B)
+ ("m" ?\e,Fl\e(B)
+ ("," ?,)
+ ("." ?.)
+ ("/" ?/)
+ 
+ ("!" ?!)
+ ("@" ?@)
+ ("#" ?#)
+ ("$" ?$)
+ ("%" ?%)
+ ("^" ?^)
+ ("&" ?&)
+ ("*" ?*)
+ ("(" ?\()
+ (")" ?\))
+ ("_" ?_)
+ ("+" ?+)
+ ("~" ?~)
+ ("Q" ?:)
+ ("W" ?\e,FS\e(B)
+ ("E" ?\e,FE\e(B)
+ ("R" ?\e,FQ\e(B)
+ ("T" ?\e,FT\e(B)
+ ("Y" ?\e,FU\e(B)
+ ("U" ?\e,FH\e(B)
+ ("I" ?\e,FI\e(B)
+ ("O" ?\e,FO\e(B)
+ ("P" ?\e,FP\e(B)
+ ("{" ?{)
+ ("}" ?})
+ ("A" ?\e,FA\e(B)
+ ("S" ?\e,FS\e(B)
+ ("D" ?\e,FD\e(B)
+ ("F" ?\e,FV\e(B)
+ ("G" ?\e,FC\e(B)
+ ("H" ?\e,FG\e(B)
+ ("J" ?\e,FN\e(B)
+ ("K" ?\e,FJ\e(B)
+ ("L" ?\e,FK\e(B)
+ (":" ?\e,F(\e(B)
+ ("\"" ?\")
+ ("|" ?|)
+ ("Z" ?\e,FF\e(B)
+ ("X" ?\e,FW\e(B)
+ ("C" ?\e,FX\e(B)
+ ("V" ?\e,FY\e(B)
+ ("B" ?\e,FB\e(B)
+ ("N" ?\e,FM\e(B)
+ ("M" ?\e,FL\e(B)
+ ("<" ?<)
+ (">" ?>)
+ ("?" ??)
+ 
+ (";a" ?\e,F\\e(B)
+ (";e" ?\e,F]\e(B)
+ (";h" ?\e,F^\e(B)
+ (";i" ?\e,F_\e(B)
+ (";o" ?\e,F|\e(B)
+ (";y" ?\e,F}\e(B)
+ (";v" ?\e,F~\e(B)
+ (";A" ?\e,F6\e(B)
+ (";E" ?\e,F8\e(B)
+ (";H" ?\e,F9\e(B)
+ (";I" ?\e,F:\e(B)
+ (";O" ?\e,F<\e(B)
+ (";Y" ?\e,F>\e(B)
+ (";V" ?\e,F?\e(B)
+ (":i" ?\e,Fz\e(B)
+ (":y" ?\e,F{\e(B)
+ (":I" ?\e,FZ\e(B)
+ (":Y" ?\e,F[\e(B)
+ (";:i" ?\e,F@\e(B)
+ (":;i" ?\e,F@\e(B)
+ (";:y" ?\e,F`\e(B)
+ (":;y" ?\e,F`\e(B))
+
+(quail-define-package
+ "greek-postfix" "GreekPost" "\e,FX\e(B" nil
+ "\e,FEkkgmij\\e(B: Greek keyboard layout with postfix accents (ISO 8859-7)
+--------------
+
 In the right of \e,Fk\e(B key is a combination key, where
  \e,F4\e(B acute
  \e,F(\e(B diaresis
@@ -1065,7 +1205,7 @@ e.g.
  ("-" ?-)
  ("=" ?=)
  ("`" ?`)
- ("q" ?\e,F7\e(B)
+ ("q" ?\;)
  ("w" ?\e,Fr\e(B)
  ("e" ?\e,Fe\e(B)
  ("r" ?\e,Fq\e(B)
@@ -1113,7 +1253,7 @@ e.g.
  ("_" ?_)
  ("+" ?+)
  ("~" ?~)
- ("Q" ?\e,F/\e(B)
+ ("Q" ?:)
  ("W" ?\e,FS\e(B)
  ("E" ?\e,FE\e(B)
  ("R" ?\e,FQ\e(B)
@@ -1144,8 +1284,8 @@ e.g.
  ("B" ?\e,FB\e(B)
  ("N" ?\e,FM\e(B)
  ("M" ?\e,FL\e(B)
- ("<" ?\;)
- (">" ?:)
+ ("<" ?<)
+ (">" ?>)
  ("?" ??)
  
  ("a;" ?\e,F\\e(B)
@@ -1167,6 +1307,9 @@ e.g.
  ("I:" ?\e,FZ\e(B)
  ("Y:" ?\e,F[\e(B)
  ("i:;" ?\e,F@\e(B)
- ("y:;" ?\e,F`\e(B))
+ ("i;:" ?\e,F@\e(B)
+ ("y:;" ?\e,F`\e(B)
+ ("y;:" ?\e,F`\e(B))
+
 
 ;;; greek.el ends here