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

diff --git a/lisp/calc/calc-mode.el b/lisp/calc/calc-mode.el
index 389b52385b688c42143c52e0cfea983e871e6331..1c5bd29e8046c66761a282534da85847c68f5704 100644 (file)
--- 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