# HG changeset patch
# User HIROSE Yuuji <yuuji@gentei.org>
# Date 1495506881 -32373
# Node ID 1790e0d351561ef2daa407f0d21ff56ff17f8a82
# Parent  5709236dafb378779594f35550aadb108b78151c
Capitalized varGREEK with amssymb, added

diff -r 5709236dafb3 -r 1790e0d35156 yatexmth.el
--- a/yatexmth.el	Tue May 16 12:56:44 2017 +0859
+++ b/yatexmth.el	Tue May 23 11:34:14 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 Mon Mar  6 17:41:31 2017 on firestorm
+;;; Last modified Tue May 23 11:32:21 2017 on firestorm
 ;;; $Id$
 
 ;;; Commentary:
@@ -347,53 +347,72 @@
 ;;)
 
 (defvar YaTeX-greek-key-alist-default
-  '(
-    ("a"	"alpha"		("a" "ƒ¿"))
-    ("b"	"beta"		("|>\n|>\n|" "ƒÀ"))
-    ("g"	"gamma"		("~r" "ƒÁ"))
-    ("G"	"Gamma"		("|~" "ƒ¡"))
-    ("d"	"delta"		("<~\n<>" "ƒÂ"))
-    ("D"	"Delta"		("/\\\n~~" "Ģ"))
-    ("e"	"epsilon"	"<\n<~")
-    ("e-"	"varepsilon"	("(\n(~" "ƒÃ"))
-    ("z"	"zeta"		("(~\n >" "Ā"))
-    ("et"	"eta"		("n\n/" "ā"))
-    ("th"	"theta"		("8" "Į"))
-    ("Th"	"Theta"		("(8)" "ƒ¦"))
-    ("th-"	"vartheta"	("-8" "-Į"))
-    ("i"	"iota"		("i\n\\_/" "Ă"))
-    ("k"	"kappa"		("k" "ƒÈ"))
-    ("l"	"lambda"	("\\n/\\" "ă"))
-    ("L"	"Lambda"	("/\\" "ĩ"))
-    ("m"	"mu"		(" u_\n/" "ƒÊ"))
-    ("n"	"nu"		("|/" "ƒË"))
-    ("x"	"xi"		("E\n >" "ƒÌ"))
-    ("X"	"Xi"		("---\n -\n---" "ƒ¬"))
-    ("p"	"pi"		("__\n)(" "ƒÎ"))
-    ("P"	"Pi"		("__\n||" "Ĩ"))
-    ("p-"	"varpi"		("_\nw" "__\nƒÖ"))
-    ("r"	"rho"		("/O" "ƒÏ"))
-    ("r-"	"varrho"	("/O\n~~" "ƒÏ\n~~"))
-    ("s"	"sigma"		("o~" "ƒÐ"))
-    ("S"	"Sigma"		("\\-+\n >\n/-+" "ƒ°"))
-    ("s-"	"varsigma"	"(~~ \n>")
-    ("t"	"tau"		("__\n(" "Ą"))
-    ("u"	"upsilon"	("~v" "ƒÒ"))
-    ("y"	"upsilon"	("~v" "ƒÒ"))
-    ("U"	"Upsilon"	("~Y~" "ƒ²"))
-    ("Y"	"Upsilon"	("~Y~" "ƒ²"))
-    ("ph"	"phi"		("  /\n(/)\n/" "ƒÓ"))
-    ("Ph"	"Phi"		(" _\n(|)\n ~" "ƒ³"))
-    ("ph-"	"varphi"	"\\O\n|")
-    ("c"	"chi"		("x" "ƒÔ"))
-    ("ps"	"psi"		("\\|/\\n |" "ƒÕ"))
-    ("Ps"	"Psi"		(" ~\n\\|/\\n |" "ĵ"))
-    ("o"	"omega"		("w" "ƒÖ"))
-    ("w"	"omega"		("w" "ƒÖ"))
-    ("O"	"Omega"		("(~)\n~ ~" "Ħ"))
-    ("W"	"Omega"		("(~)\n~ ~" "Ħ"))
-    ("f" "foo")
-    )
+  (append
+   '(
+     ("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(~" "ƒÃ"))
+     ("z"	"zeta"		("(~\n >" "Ā"))
+     ("et"	"eta"		("n\n/" "ā"))
+     ("th"	"theta"		("8" "Į"))
+     ("th-"	"vartheta"	(" o\no" "Į"))
+     ("Th"	"Theta"		("(8)" "ƒ¦"))
+     ("th-"	"vartheta"	("-8" "-Į"))
+     ("i"	"iota"		("i\n\\_/" "Ă"))
+     ("k"	"kappa"		("k" "ƒÈ"))
+     ("l"	"lambda"	("\\n/\\" "ă"))
+     ("L"	"Lambda"	("/\\" "ĩ"))
+     ("m"	"mu"		(" u_\n/" "ƒÊ"))
+     ("n"	"nu"		("|/" "ƒË"))
+     ("x"	"xi"		("E\n >" "ƒÌ"))
+     ("X"	"Xi"		("---\n -\n---" "ƒ¬"))
+     ("p"	"pi"		("__\n)(" "ƒÎ"))
+     ("p-"	"varpi"		(" __\n)(" "ƒÎ"))
+     ("P"	"Pi"		("__\n||" "Ĩ"))
+     ("p-"	"varpi"		("_\nw" "__\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>")
+     ("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" "ƒÔ"))
+     ("ps"	"psi"		("\\|/\\n |" "ƒÕ"))
+     ("Ps"	"Psi"		(" ~\n\\|/\\n |" "ĵ"))
+     ("o"	"omega"		("w" "ƒÖ"))
+     ("w"	"omega"		("w" "ƒÖ"))
+     ("O"	"Omega"		("(~)\n~ ~" "Ħ"))
+     ("W"	"Omega"		("(~)\n~ ~" "Ħ"))
+     ("f" "foo")
+     )
+   (if YaTeX-use-AMS-LaTeX
+       '(
+	 ("G-"	"varGamma"	("/~" "_ƒ¡"))
+	 ("D-"	"varDelta"	("/|\n~~" "_Ģ"))
+	 ("Th-"	"varTheta"	("/8/" "_ƒ¦"))
+	 ("L-"	"varLambda"	("/|" "_ĩ"))
+	 ("X-"	"varXi"		(" --\n -\n-- " "_ƒ¬"))
+	 ("S-"	"varSigma"	(" \\-+\n >\n/-+" "_ƒ°"))
+	 ("U-"	"varUpsilon"	("~~Y~" "_ƒ²"))
+	 ("Ph-"	"varPhi"	("  _\n(|)\n~" "_ƒ³"))
+	 ("Ps-"	"varPsi"	("  ~\n\\//\\n /" "ĵ"))
+	 ("O-"	"varOmega"	("/~/\n~ ~" "_Ħ")))))
   "Default LaTeX-math-command alist.")
 
 (defvar YaTeX-greek-key-alist-private nil
diff -r 5709236dafb3 -r 1790e0d35156 yatexpkg.el
--- a/yatexpkg.el	Tue May 16 12:56:44 2017 +0859
+++ b/yatexpkg.el	Tue May 23 11:34:14 2017 +0859
@@ -1,7 +1,7 @@
 ;;; yatexpkg.el --- YaTeX package manager -*- coding: sjis -*-
 ;;; 
 ;;; (c)2003-2017 by HIROSE, Yuuji [yuuji@yatex.org]
-;;; Last modified Mon Mar  6 17:39:08 2017 on firestorm
+;;; Last modified Tue May 23 11:33:17 2017 on firestorm
 ;;; $Id$
 
 ;;; Code:
@@ -34,6 +34,8 @@
      		(section "tag" "tag*"))
     ("amssymb"	(maketitle "leqq" "geqq" "mathbb" "mathfrak"
 			   "fallingdotseq" "therefore" "because"
+			   "varDelta" "varTheta" "varLambda" "varXi" "varPi"
+			   "varSigma" "varUpsilon" "varPhi" "varPsi" "varOmega"
 			   "lll" "ggg")) ;very few.  Please tell us!
     ("mathrsfs"	(section "mathscr"))
     ("graphicx" (section "includegraphics"