(calc-save-modes): Reset the modes list if Calc is in embedded mode.

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/calc/calc-mode.el b/lisp/calc/calc-mode.el
index 389b52385b6..1c5bd29e804 100644
--- a/lisp/calc/calc-mode.el
+++ b/lisp/calc/calc-mode.el
@@ -304,7 +304,9 @@
                vals (cdr vals))))
      (run-hooks 'calc-mode-save-hook)
      (insert ";;; End of mode settings\n")
-     (save-buffer))))
+     (save-buffer)
+     (if calc-embedded-info
+         (calc-embedded-save-original-modes)))))
 
 (defun calc-settings-file-name (name &optional arg)
   (interactive