From 51d6d30054441518bf3acb70a9f61bf62f1beb6a Mon Sep 17 00:00:00 2001 From: Jay Belanger Date: Mon, 21 Mar 2005 15:49:02 +0000 Subject: [PATCH] calc-embed.el (calc-do-embedded): Put data on stack before changing modes. --- lisp/ChangeLog | 5 +++++ lisp/calc/calc-embed.el | 9 ++++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e7374fbff1d..2891b60e84e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-03-21 Jay Belanger + + * calc/calc-embed.el (calc-do-embedded): Put data on stack before + changing modes. + 2005-03-21 Sam Steingold * add-log.el (add-log-current-defun): Support more C DEFUN forms. diff --git a/lisp/calc/calc-embed.el b/lisp/calc/calc-embed.el index f1a273f7cf3..006be041bc2 100644 --- a/lisp/calc/calc-embed.el +++ b/lisp/calc/calc-embed.el @@ -227,10 +227,13 @@ This is not required to be present for user-written mode annotations.") (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 -- 2.39.2