[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calc.el,v
From: |
Jay Belanger |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc.el,v |
Date: |
Sun, 08 Jul 2007 00:11:10 +0000 |
CVSROOT: /cvsroot/emacs
Module name: emacs
Changes by: Jay Belanger <jpb> 07/07/08 00:11:09
Index: calc.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc.el,v
retrieving revision 1.84
retrieving revision 1.85
diff -u -b -r1.84 -r1.85
--- calc.el 7 Jul 2007 23:56:33 -0000 1.84
+++ calc.el 8 Jul 2007 00:11:09 -0000 1.85
@@ -2284,7 +2284,8 @@
(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 @@
'( "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)
- [Emacs-diffs] Changes to emacs/lisp/calc/calc.el,v, Jay Belanger, 2007/07/05
- [Emacs-diffs] Changes to emacs/lisp/calc/calc.el,v, Jay Belanger, 2007/07/07
- [Emacs-diffs] Changes to emacs/lisp/calc/calc.el,v, Jay Belanger, 2007/07/07
- [Emacs-diffs] Changes to emacs/lisp/calc/calc.el,v,
Jay Belanger <=
- [Emacs-diffs] Changes to emacs/lisp/calc/calc.el,v, Jay Belanger, 2007/07/07
- [Emacs-diffs] Changes to emacs/lisp/calc/calc.el,v, Jay Belanger, 2007/07/07
- [Emacs-diffs] Changes to emacs/lisp/calc/calc.el,v, Miles Bader, 2007/07/26