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