Mercurial > emacs
changeset 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 | 4bfccb87bd7c |
| children | 1a2830897544 |
| files | lisp/calc/calc-embed.el |
| diffstat | 1 files changed, 9 insertions(+), 0 deletions(-) [+] |
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*"))