X-Git-Url: http://git.sourceforge.jp/view?p=howm%2Fhowm.git;a=blobdiff_plain;f=howm-common.el;h=09051c1b3a5b6d79dc9c2cb8e62b5e8c986ec65e;hp=b842dda6977daed0845ce73812c4f1c5d9facab9;hb=0a2973b2b4b881a8040d7524e8678195687ec9a6;hpb=baee545447ad5ddbc2c15f1af88a4e56e07fbc25

diff --git a/howm-common.el b/howm-common.el
index b842dda..09051c1 100644
--- a/howm-common.el
+++ b/howm-common.el
@@ -126,7 +126,7 @@ STRING should be given if the last search was by `string-match' on STRING."
 (defun howm-time-difference-second (ti1 ti0)
   (let ((h (- (car ti1) (car ti0)))
         (l (- (cadr ti1) (cadr ti0)))
-        (m (- (cl-caddr ti1) (cl-caddr ti0)))
+        (m (- (or (cl-caddr ti1) 0) (or (cl-caddr ti0) 0)))
         )
     (+ (* h 65536) l
        (* m 1e-6)