Commit ec878460 authored by Jay Belanger's avatar Jay Belanger
Browse files

(calc-embedded-preserve-modes): New function.

parent 746539f6
......@@ -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*"))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment