[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calc-stuff.el
From: |
Jay Belanger |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc-stuff.el |
Date: |
Fri, 26 Nov 2004 17:56:36 -0500 |
Index: emacs/lisp/calc/calc-stuff.el
diff -c emacs/lisp/calc/calc-stuff.el:1.7 emacs/lisp/calc/calc-stuff.el:1.8
*** emacs/lisp/calc/calc-stuff.el:1.7 Mon Sep 1 15:45:18 2003
--- emacs/lisp/calc/calc-stuff.el Fri Nov 26 22:34:59 2004
***************
*** 3,10 ****
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
;; Author: David Gillespie <address@hidden>
! ;; Maintainers: D. Goel <address@hidden>
! ;; Colin Walters <address@hidden>
;; This file is part of GNU Emacs.
--- 3,9 ----
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc.
;; Author: David Gillespie <address@hidden>
! ;; Maintainer: Jay Belanger <address@hidden>
;; This file is part of GNU Emacs.
***************
*** 165,170 ****
--- 164,181 ----
(interactive)
(message "Calc %s" calc-version))
+ ;; The following caches are declared in other files, but are
+ ;; reset here.
+ (defvar math-lud-cache) ; calc-mtx.el
+ (defvar math-log2-cache) ; calc-bin.el
+ (defvar math-radix-digits-cache) ; calc-bin.el
+ (defvar math-radix-float-cache-tag) ; calc-bin.el
+ (defvar math-random-cache) ; calc-comb.el
+ (defvar math-max-digits-cache) ; calc-bin.el
+ (defvar math-integral-cache) ; calcalg2.el
+ (defvar math-units-table) ; calc-units.el
+ (defvar math-format-date-cache) ; calc-forms.el
+ (defvar math-holidays-cache-tag) ; calc-forms.el
(defun calc-flush-caches (&optional inhibit-msg)
(interactive "P")
***************
*** 175,187 ****
math-radix-float-cache-tag nil
math-random-cache nil
math-max-digits-cache nil
- math-checked-rewrites nil
math-integral-cache nil
math-units-table nil
math-decls-cache-tag nil
math-eval-rules-cache-tag t
- math-graph-var-cache nil
- math-graph-data-cache nil
math-format-date-cache nil
math-holidays-cache-tag t)
(mapcar (function (lambda (x) (set x -100))) math-cache-list)
--- 186,195 ----
***************
*** 270,286 ****
(math-map-over-constants (function (lambda (x) (calcFunc-frac x tol)))
a))
! (defun math-map-over-constants (func expr)
(math-map-over-constants-rec expr))
(defun math-map-over-constants-rec (expr)
(cond ((or (Math-primp expr)
(memq (car expr) '(intv sdev)))
(or (and (Math-objectp expr)
! (funcall func expr))
expr))
((and (memq (car expr) '(^ calcFunc-subscr))
! (eq func 'math-float)
(= (length expr) 3)
(Math-integerp (nth 2 expr)))
(list (car expr)
--- 278,299 ----
(math-map-over-constants (function (lambda (x) (calcFunc-frac x tol)))
a))
! ;; The variable math-moc-func is local to math-map-over-constants,
! ;; but is used by math-map-over-constants-rec, which is called by
! ;; math-map-over-constants.
! (defvar math-moc-func)
!
! (defun math-map-over-constants (math-moc-func expr)
(math-map-over-constants-rec expr))
(defun math-map-over-constants-rec (expr)
(cond ((or (Math-primp expr)
(memq (car expr) '(intv sdev)))
(or (and (Math-objectp expr)
! (funcall math-moc-func expr))
expr))
((and (memq (car expr) '(^ calcFunc-subscr))
! (eq math-moc-func 'math-float)
(= (length expr) 3)
(Math-integerp (nth 2 expr)))
(list (car expr)
- [Emacs-diffs] Changes to emacs/lisp/calc/calc-stuff.el,
Jay Belanger <=