Mercurial > emacs

changeset 60543:a4928951c9f2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(math-ms-args): Declare it. (calc-embedded-eval-expr, calc-embedded-eval-get-var): Use variable math-ms-args. (calc-embedded-subst): Use math-multi-subst-rec to substitute variables.
author Jay Belanger <jay.p.belanger@gmail.com>
date Thu, 10 Mar 2005 07:14:32 +0000
parents 70d9e88990d5
children fec3e93a9c4a
files lisp/calc/calc-embed.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calc/calc-embed.el	Thu Mar 10 06:40:59 2005 +0000
+++ b/lisp/calc/calc-embed.el	Thu Mar 10 07:14:32 2005 +0000
@@ -881,13 +881,13 @@
 	 (while (setq x (cdr x))
 	   (calc-embedded-find-vars (car x))))))
 
-
+(defvar math-ms-args)
 (defun calc-embedded-evaluate-expr (x)
   (let ((calc-embed-vars-used (aref calc-embedded-info 10)))
     (or calc-embed-vars-used (calc-embedded-find-vars x))
     (if calc-embed-vars-used
 	(let ((active (assq (aref calc-embedded-info 0) calc-embedded-active))
-	      (args nil))
+	      (math-ms-args nil))
 	  (save-excursion
 	    (calc-embedded-original-buffer t)
 	    (or active
@@ -911,7 +911,7 @@
 	(list 'calcFunc-assign
 	      (nth 1 x)
 	      (calc-embedded-subst (nth 2 x)))
-      (calc-normalize (math-evaluate-expr-rec (math-multi-subst x nil nil))))))
+      (calc-normalize (math-evaluate-expr-rec (math-multi-subst-rec x))))))
 
 (defun calc-embedded-eval-get-var (var base)
   (let ((entry base)
@@ -938,7 +938,7 @@
 		    (setq val (nth 2 val)))
 		(if (eq (car-safe val) 'calcFunc-assign)
 		    (setq val (nth 2 val)))
-		(setq args (cons (cons var val) args)))
+		(setq math-ms-args (cons (cons var val) math-ms-args)))
 	    (calc-embedded-activate)
 	    (calc-embedded-eval-get-var var base))))))