mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Jay Belanger 2005-05-08 04:58:38 +00:00
parent 746539f62d
commit ec878460aa
1 changed files with 9 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/calc/calc-embed.el
View file

@ -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*"))