Mercurial > emacs
diff lisp/calc/calc-embed.el @ 62175:eb739125ed5a
(calc-embedded-preserve-modes): New function.
| author | Jay Belanger <jay.p.belanger@gmail.com> |
|---|---|
| date | Sun, 08 May 2005 04:58:38 +0000 |
| parents | 411004b6c0dc |
| children | 7cff9cbc5ea3 62afea0771d8 |
line wrap: on
line diff
--- a/lisp/calc/calc-embed.el Sun May 08 04:57:46 2005 +0000 +++ b/lisp/calc/calc-embed.el Sun May 08 04:58:38 2005 +0000 @@ -148,6 +148,15 @@ (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*"))