|
@@ -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
|