[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.24 emacs/lisp/calc/calc-embed.el:1.25
*** emacs/lisp/calc/calc-embed.el:1.24  Fri Apr  1 21:44:21 2005
--- emacs/lisp/calc/calc-embed.el       Sun May  8 04:58:38 2005
***************
*** 148,153 ****
--- 148,162 ----
            (setq calc-embedded-original-modes (cons lang modes)))
        (setq calc-embedded-original-modes nil))))
  
+ (defun calc-embedded-preserve-modes ()
+   "Preserve the current modes when leaving embedded mode."
+   (interactive)
+   (if calc-embedded-info
+       (progn
+         (calc-embedded-save-original-modes)
+         (message "Current modes will be preserved when leaving embedded 
mode."))
+     (message "Not in embedded mode.")))
+ 
  (defun calc-embedded-restore-original-modes ()
    "Restore the original Calc modes when leaving embedded mode."
    (let ((calcbuf (get-buffer "*Calculator*"))