[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calc/calc-embed.el
From: |
Jay Belanger |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calc/calc-embed.el |
Date: |
Thu, 24 Mar 2005 08:34:53 -0500 |
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)