# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1495507441 -32373
# Node ID 9db0e1522847339df5f6ffe8e59766f3ce4ca53e
# Parent  1790e0d351561ef2daa407f0d21ff56ff17f8a82
Fixes on greek completion

diff -r 1790e0d35156 -r 9db0e1522847 yatexmth.el
--- a/yatexmth.el	Tue May 23 11:34:14 2017 +0859
+++ b/yatexmth.el	Tue May 23 11:43:34 2017 +0859
@@ -1,7 +1,7 @@
 ;;; yatexmth.el --- YaTeX math-mode-specific functions -*- coding: sjis -*-
 ;;; 
 ;;; (c)1993-2017 by HIROSE Yuuji [yuuji@yatex.org]
-;;; Last modified Tue May 23 11:32:21 2017 on firestorm
+;;; Last modified Tue May 23 11:41:17 2017 on firestorm
 ;;; $Id$
 
 ;;; Commentary:
@@ -348,22 +348,19 @@
 
 (defvar YaTeX-greek-key-alist-default
   (append
-   '(
-     ("a"	"alpha"		("a" "ƒ¿"))
+   '(("a"	"alpha"		("a" "ƒ¿"))
      ("b"	"beta"		("|>\n|>\n|" "ƒÀ"))
      ("g"	"gamma"		("~r" "ƒÁ"))
      ("G"	"Gamma"		("|~" "ƒ¡"))
      ("d"	"delta"		("<~\n<>" "ƒÂ"))
      ("D"	"Delta"		("/\\\n~~" "Ģ"))
      ("e"	"epsilon"	"<\n<~")
-     ("e-"	"varepsilon"	" <\n<~")
-     ("e-"	"varepsilon"	("(\n(~" "ƒÃ"))
+     ("e-"	"varepsilon"	("(\n(~" "_ƒÃ"))
      ("z"	"zeta"		("(~\n >" "Ā"))
      ("et"	"eta"		("n\n/" "ā"))
      ("th"	"theta"		("8" "Į"))
-     ("th-"	"vartheta"	(" o\no" "Į"))
      ("Th"	"Theta"		("(8)" "ƒ¦"))
-     ("th-"	"vartheta"	("-8" "-Į"))
+     ("th-"	"vartheta"	("-8" "_Į"))
      ("i"	"iota"		("i\n\\_/" "Ă"))
      ("k"	"kappa"		("k" "ƒÈ"))
      ("l"	"lambda"	("\\n/\\" "ă"))
@@ -373,23 +370,19 @@
      ("x"	"xi"		("E\n >" "ƒÌ"))
      ("X"	"Xi"		("---\n -\n---" "ƒ¬"))
      ("p"	"pi"		("__\n)(" "ƒÎ"))
-     ("p-"	"varpi"		(" __\n)(" "ƒÎ"))
      ("P"	"Pi"		("__\n||" "Ĩ"))
-     ("p-"	"varpi"		("_\nw" "__\nƒÖ"))
+     ("p-"	"varpi"		("__\n/(" "_ƒÎ"))
      ("r"	"rho"		("/O" "ƒÏ"))
-     ("r-"	"varrho"	("~O" "ƒÏ"))
      ("r-"	"varrho"	("/O\n~~" "ƒÏ\n~~"))
      ("s"	"sigma"		("o~" "ƒÐ"))
-     ("s-"	"varsigma"	("o~~" "ƒÐ"))
      ("S"	"Sigma"		("\\-+\n >\n/-+" "ƒ°"))
-     ("s-"	"varsigma"	"(~~ \n>")
+     ("s-"	"varsigma"	"/~~ \n /")
      ("t"	"tau"		("__\n(" "Ą"))
      ("u"	"upsilon"	("~v" "ƒÒ"))
      ("y"	"upsilon"	("~v" "ƒÒ"))
      ("U"	"Upsilon"	("~Y~" "ƒ²"))
      ("Y"	"Upsilon"	("~Y~" "ƒ²"))
      ("ph"	"phi"		("  /\n(/)\n/" "ƒÓ"))
-     ("ph-"	"varphi"	("   /\n(/)\n/" "ƒÓ"))
      ("Ph"	"Phi"		(" _\n(|)\n ~" "ƒ³"))
      ("ph-"	"varphi"	"\\O\n|")
      ("c"	"chi"		("x" "ƒÔ"))
@@ -399,8 +392,7 @@
      ("w"	"omega"		("w" "ƒÖ"))
      ("O"	"Omega"		("(~)\n~ ~" "Ħ"))
      ("W"	"Omega"		("(~)\n~ ~" "Ħ"))
-     ("f" "foo")
-     )
+     ("f" "foo"))
    (if YaTeX-use-AMS-LaTeX
        '(
 	 ("G-"	"varGamma"	("/~" "_ƒ¡"))