mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(calc-embedded-mode-change): Save all relevant mode settings in

Browse source 
calc-embedded-original-modes when modes are permanently changed.
This commit is contained in:
Jay Belanger 2005-03-24 13:34:53 +00:00
parent 35626cba63
commit 5e2b0a66e9
1 changed files with 2 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lisp/calc/calc-embed.el
View file

@ -1257,26 +1257,8 @@ The command \\[yank] can retrieve it from there."
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)))))))))
(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)