Mercurial > emacs

changeset 60770:ee662831e691

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
calc-embed.el (calc-do-embedded): Put data on stack before changing modes.
author Jay Belanger <jay.p.belanger@gmail.com>
date Mon, 21 Mar 2005 15:47:37 +0000
parents a974294c56fa
children 73fa78a24d96
files lisp/calc/calc-embed.el
diffstat 1 files changed, 6 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- 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