Add Greek letters to math-variable-table properties of tex.

2 files changed, 53 insertions, 7 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 45a9343206d..575f25b23a7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2006-09-22  Jay Belanger  <belanger@truman.edu>
+
+        * calc/calc-lang.el: Add Greek letters to math-variable-table
+        property of tex.
+
 2006-09-22  Chong Yidong  <cyd@stupidchicken.com>
 
         * files.el (save-some-buffers-action-alist): Display diff in
diff --git a/lisp/calc/calc-lang.el b/lisp/calc/calc-lang.el
index c7f92a13847..07bc0e247f7 100644
--- a/lisp/calc/calc-lang.el
+++ b/lisp/calc/calc-lang.el
@@ -409,13 +409,54 @@
      ( \\mu        . calcFunc-moebius )))
 
 (put 'tex 'math-variable-table
-  '( ( \\pi        . var-pi )
-     ( \\infty     . var-inf )
-     ( \\infty     . var-uinf )
-     ( \\phi       . var-phi )
-     ( \\gamma     . var-gamma )
-     ( \\sum       . (math-parse-tex-sum calcFunc-sum) )
-     ( \\prod      . (math-parse-tex-sum calcFunc-prod) )))
+  '( 
+    ;; The Greek letters
+    ( \\alpha      . var-alpha )
+    ( \\beta       . var-beta  )
+    ( \\gamma      . var-gamma )
+    ( \\Gamma      . var-Gamma )
+    ( \\delta      . var-delta )
+    ( \\Delta      . var-Delta )
+    ( \\epsilon    . var-epsilon )
+    ( \\varepsilon . var-varepsilon)
+    ( \\zeta       . var-zeta )
+    ( \\eta        . var-eta  )
+    ( \\theta      . var-theta )
+    ( \\vartheta   . var-vartheta )
+    ( \\Theta      . var-Theta )
+    ( \\iota       . var-iota )
+    ( \\kappa      . var-kappa )
+    ( \\lambda     . var-lambda )
+    ( \\Lambda     . var-Lambda )
+    ( \\mu         . var-mu )
+    ( \\nu         . var-nu )
+    ( \\xi         . var-xi )
+    ( \\Xi         . var-Xi )
+    ( \\pi         . var-pi )
+    ( \\varpi      . var-varpi )
+    ( \\Pi         . var-Pi )
+    ( \\rho        . var-rho )
+    ( \\varrho     . var-varrho )
+    ( \\sigma      . var-sigma )
+    ( \\sigma      . var-varsigma )
+    ( \\Sigma      . var-Sigma )
+    ( \\tau        . var-tau )
+    ( \\upsilon    . var-upsilon )
+    ( \\Upsilon    . var-Upsilon )
+    ( \\phi        . var-phi )
+    ( \\varphi     . var-varphi )
+    ( \\Phi        . var-Phi )
+    ( \\chi        . var-chi )
+    ( \\psi        . var-psi )
+    ( \\Psi        . var-Psi )
+    ( \\omega      . var-omega )
+    ( \\Omega      . var-Omega )
+    ;; Others
+    ( \\ell        . var-ell )
+    ( \\infty      . var-inf )
+    ( \\infty      . var-uinf )
+    ( \\sum        . (math-parse-tex-sum calcFunc-sum) )
+    ( \\prod       . (math-parse-tex-sum calcFunc-prod) )))
 
 (put 'tex 'math-complex-format 'i)