diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-05-08 04:58:38 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-05-08 04:58:38 +0000 |
| commit | ec878460aa362c2229d4fd5bbb25ebff805ea798 (patch) | |
| tree | 12f3a68efcd0e40f91fd82ca6d974bcc8677745d /lisp/calc | |
| parent | 746539f62dd3a6a87a68d0b1ddd81a6c0882f8cb (diff) | |
| download | emacs-ec878460aa362c2229d4fd5bbb25ebff805ea798.tar.gz emacs-ec878460aa362c2229d4fd5bbb25ebff805ea798.tar.bz2 emacs-ec878460aa362c2229d4fd5bbb25ebff805ea798.zip | |
(calc-embedded-preserve-modes): New function.
Diffstat (limited to 'lisp/calc')
| -rw-r--r-- | lisp/calc/calc-embed.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/calc/calc-embed.el b/lisp/calc/calc-embed.el index 4f45419c136..6b94cd0af0c 100644 --- a/lisp/calc/calc-embed.el +++ b/lisp/calc/calc-embed.el @@ -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*")) |