# HG changeset patch
# User Jay Belanger <jay.p.belanger@gmail.com>
# Date 1111420057 0
# Node ID ee662831e691d88b267a71e6709557c5176a526e
# Parent  a974294c56fa3b9d5ee8e8809d98afabf640c016
calc-embed.el
(calc-do-embedded): Put data on stack before changing modes.

diff -r a974294c56fa -r ee662831e691 lisp/calc/calc-embed.el
--- a/lisp/calc/calc-embed.el	Mon Mar 21 14:37:36 2005 +0000
+++ b/lisp/calc/calc-embed.el	Mon Mar 21 15:47:37 2005 +0000
@@ -227,10 +227,13 @@
 	(calc-wrapper
 	 (let* ((okay nil)
 		(calc-no-refresh-evaltos t))
-	   (setq chg (calc-embedded-set-modes
-		      (aref info 15) (aref info 12) (aref info 13)))
 	   (if (aref info 8)
-	       (calc-push (calc-normalize (aref info 8)))
+               (progn
+                 (calc-push (calc-normalize (aref info 8)))
+                 (setq chg (calc-embedded-set-modes
+                            (aref info 15) (aref info 12) (aref info 13))))
+             (setq chg (calc-embedded-set-modes
+                        (aref info 15) (aref info 12) (aref info 13)))
 	     (calc-alg-entry)))
 	 (setq calc-undo-list nil
 	       calc-redo-list nil