[Emacs-diffs] Changes to emacs/lisp/calc/calc-embed.el

[Jay Belanger]

Index: emacs/lisp/calc/calc-embed.el
diff -c emacs/lisp/calc/calc-embed.el:1.20 emacs/lisp/calc/calc-embed.el:1.21
*** emacs/lisp/calc/calc-embed.el:1.20  Fri Mar 11 22:19:02 2005
--- emacs/lisp/calc/calc-embed.el       Mon Mar 21 15:47:37 2005
***************
*** 227,236 ****
        (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)))
             (calc-alg-entry)))
         (setq calc-undo-list nil
               calc-redo-list nil
--- 227,239 ----
        (calc-wrapper
         (let* ((okay nil)
                (calc-no-refresh-evaltos t))
           (if (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