227 |
(calc-wrapper |
(calc-wrapper |
228 |
(let* ((okay nil) |
(let* ((okay nil) |
229 |
(calc-no-refresh-evaltos t)) |
(calc-no-refresh-evaltos t)) |
|
(setq chg (calc-embedded-set-modes |
|
|
(aref info 15) (aref info 12) (aref info 13))) |
|
230 |
(if (aref info 8) |
(if (aref info 8) |
231 |
(calc-push (calc-normalize (aref info 8))) |
(progn |
232 |
|
(calc-push (calc-normalize (aref info 8))) |
233 |
|
(setq chg (calc-embedded-set-modes |
234 |
|
(aref info 15) (aref info 12) (aref info 13)))) |
235 |
|
(setq chg (calc-embedded-set-modes |
236 |
|
(aref info 15) (aref info 12) (aref info 13))) |
237 |
(calc-alg-entry))) |
(calc-alg-entry))) |
238 |
(setq calc-undo-list nil |
(setq calc-undo-list nil |
239 |
calc-redo-list nil |
calc-redo-list nil |