~swflint/track-calorie-values

3d86e2cc4b18e9de753cbc73f019e2acb6583fe2 — Samuel W. Flint 2 months ago b252a5b
Fix saving
1 files changed, 3 insertions(+), 3 deletions(-)

M track-values.el
M track-values.el => track-values.el +3 -3
@@ 100,9 100,9 @@
              ";; do not modify by hand\n\n")
      (let ((standard-output (current-buffer)))
        (mapcar #'(lambda (name)
                    (print `(track-values-make-table ,name ',(mapcar (lambda (x)
                                                                       (list x (track-values-get-value name x)))
                                                                     (hash-table-keys (symbol-value (intern (format "track-values-%s-table" name))))))))
                    (print `(track-values-make-table ',name ',(mapcar (lambda (x)
                                                                        (list x (track-values-get-value name x)))
                                                                      (hash-table-keys (symbol-value (intern (format "track-values-%s-table" name))))))))
                track-values-tables))
      (write-region (point-min) (point-max) track-values-save-file)
      (setf track-values-modified-p nil))))