diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-03-21 15:49:02 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-03-21 15:49:02 +0000 |
| commit | 51d6d30054441518bf3acb70a9f61bf62f1beb6a (patch) | |
| tree | 9a321c0ff91b22a72ea581fab7403d32da80906b /lisp/calc/calc-embed.el | |
| parent | 568ec09d6042ba8eb7150fb7a3f771e3a0ca51fc (diff) | |
| download | emacs-51d6d30054441518bf3acb70a9f61bf62f1beb6a.tar.gz | |
calc-embed.el
(calc-do-embedded): Put data on stack before changing modes.
Diffstat (limited to 'lisp/calc/calc-embed.el')
| -rw-r--r-- | lisp/calc/calc-embed.el | 9 |
1 files changed, 6 insertions, 3 deletions
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 |