[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.22 emacs/lisp/calc/calc-embed.el:1.23
*** emacs/lisp/calc/calc-embed.el:1.22  Tue Mar 22 16:12:57 2005
--- emacs/lisp/calc/calc-embed.el       Thu Mar 24 13:34:53 2005
***************
*** 1257,1282 ****
                       calc-embedded-close-mode))))
              (setq vars (cdr vars)
                    values (cdr values))))))
!     (when (and vars calc-embedded-original-modes (eq calc-mode-save-mode 
'save))
!       (cond ((equal vars '(the-language))
!              (setcar calc-embedded-original-modes
!                      (cons calc-language calc-language-option)))
!             ((equal vars '(the-display-just))
!              (let* ((modes (cdr calc-embedded-original-modes))
!                     (just (assq 'calc-display-just modes))
!                     (origin (assq 'calc-display-origin modes)))
!                (if just
!                    (setcdr just calc-display-just))
!                (if origin
!                    (setcdr origin calc-display-origin))))
!             (t
!              (let ((modes (cdr calc-embedded-original-modes)))
!                (while vars
!                  (let* ((var (car vars))
!                         (cell (assq var modes)))
!                    (if cell
!                        (setcdr cell (symbol-value var))))
!                  (setq vars (cdr vars)))))))))
  
  (defun calc-embedded-var-change (var &optional buf)
    (if (symbolp var)
--- 1257,1264 ----
                       calc-embedded-close-mode))))
              (setq vars (cdr vars)
                    values (cdr values))))))
!     (when (and vars (eq calc-mode-save-mode 'save))
!       (calc-embedded-save-original-modes))))
  
  (defun calc-embedded-var-change (var &optional buf)
    (if (symbolp var)