redtick--save-history does nothing if redtick-history-file is nil

That means the user who doesn't want to save history can set/customise
redtick-history-file to nil and there will be no error when
redtick-after-rest-hook fires.

1 files changed, 9 insertions, 8 deletions

diff --git a/redtick.el b/redtick.el
index 7094521..896a5f0 100644
--- a/redtick.el
+++ b/redtick.el
@@ -249,14 +249,15 @@
 
 (defun redtick--save-history ()
   "Adding current-pomodoro info to history file."
-  (let ((history (redtick--load redtick-history-file)))
-    (redtick--save redtick-history-file
-                   (add-to-list 'history
-                                (list redtick--pomodoro-started-at
-                                      redtick-work-interval
-                                      redtick-rest-interval
-                                      redtick--pomodoro-description)
-                                t))))
+  (when redtick-history-file
+    (let ((history (redtick--load redtick-history-file)))
+      (redtick--save redtick-history-file
+                     (add-to-list 'history
+                                  (list redtick--pomodoro-started-at
+                                        redtick-work-interval
+                                        redtick-rest-interval
+                                        redtick--pomodoro-description)
+                                  t)))))
 
 (add-hook 'redtick-after-rest-hook #'redtick--save-history)