/[emacs]/emacs/lisp/calc/calc-embed.el
ViewVC logotype

Diff of /emacs/lisp/calc/calc-embed.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.20 by jpb, Fri Mar 11 22:19:02 2005 UTC revision 1.21 by jpb, Mon Mar 21 15:47:37 2005 UTC
# Line 227  This is not required to be present for u Line 227  This is not required to be present for u
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

Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26