diff options
| -rw-r--r-- | lisp/calc/calc.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index 48a1f915aad..d85ec55d175 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -2284,7 +2284,8 @@ See calc-keypad for details." (defconst math-bignum-digit-length - (truncate (/ (log10 (/ most-positive-fixnum 2)) 2)) + (eval-when-compile + (truncate (/ (log10 (/ most-positive-fixnum 2)) 2))) "The length of a \"digit\" in Calc bignums. If a big integer is of the form (bigpos N0 N1 ...), this is the length of the allowable Emacs integers N0, N1,... @@ -3574,13 +3575,13 @@ and all digits are kept, regardless of Calc's current precision." '( "2x" * 190 191 ) math-standard-opers)))) +(defvar math-expr-opers (math-standard-ops)) + (defun math-standard-ops-p () (let ((meo (caar math-expr-opers))) (and (stringp meo) (string= meo "*")))) -(defvar math-expr-opers (math-standard-ops)) - (defun math-expr-ops () (if (math-standard-ops-p) (math-standard-ops) |