~swflint/track-calorie-values

6d9ee7c77b05726058bf80baeb4a28ad5427a33e — Samuel W. Flint 5 months ago 5cf6666
Fix data message
1 files changed, 2 insertions(+), 2 deletions(-)

M track-calorie-values.el
M track-calorie-values.el => track-calorie-values.el +2 -2
@@ 78,9 78,9 @@ Keys are names, values are calories.")
(defun track-calorie-values-save-data ()
  "Write calorie data."
  (when track-calorie-values-modified-p
    (insert ";; generated by track-calorie-values.el        -*- mode: lisp-data -*-\n"
            ";; do not modify by hand\n")
    (with-temp-buffer
      (insert ";; generated by track-calorie-values.el        -*- mode: lisp-data -*-\n"
              ";; 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))))