diff options
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc-lang.el | 55 | ||||
| -rw-r--r-- | lisp/calc/calc.el | 2 |
2 files changed, 49 insertions, 8 deletions
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) diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index bbb80bebc1d..35b7c19cf1a 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -1101,7 +1101,7 @@ If nil, selections displayed but ignored.") (defun calc-dispatch (&optional arg) "Invoke the GNU Emacs Calculator. See `calc-dispatch-help' for details." (interactive "P") - (sit-for echo-keystrokes) +; (sit-for echo-keystrokes) (condition-case err ; look for other keys bound to calc-dispatch (let ((keys (this-command-keys))) (unless (or (not (stringp keys)) |