Set that it's no longer modified

track-calorie-values.el

@@ -83,7 +83,8 @@ Keys are names, values are calories.")
               ";; do not modify by hand\n\n")
       (let ((standard-output (current-buffer)))
         (print `(setq track-calorie-values-data ,track-calorie-values-data)))
-      (write-region (point-min) (point-max) track-calorie-values-save-file))))
+      (write-region (point-min) (point-max) track-calorie-values-save-file)
+      (setf track-calorie-values-modified-p nil))))
 
 
 ;;; Primary interaction functions