[elpa] scratch/gited d7eb144: gited-mark-branches-by-date: Provide defaults to HH:MM:SS.

[Tino Calancha]

branch: scratch/gited
commit d7eb144e81c78f0f4d7c01d73cc427c9aef45f3f
Author: Tino Calancha <address@hidden>
Commit: Tino Calancha <address@hidden>

    gited-mark-branches-by-date: Provide defaults to HH:MM:SS.
    
    This avoid `encode-time' signals an error if one of HH, MM or SS is
    missing.
    * gited.el (gited-mark-branches-by-date): Default MM:MM:SS to 00:00:00.
---
 packages/gited/gited.el | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/packages/gited/gited.el b/packages/gited/gited.el
index 0a66f14..648271e 100644
--- a/packages/gited/gited.el
+++ b/packages/gited/gited.el
@@ -10,9 +10,9 @@
 ;; Compatibility: GNU Emacs: 24.4
 ;; Version: 0.2.0
 ;; Package-Requires: ((emacs "24.4") (cl-lib "0.5"))
-;; Last-Updated: Tue Jun 06 20:00:22 JST 2017
+;; Last-Updated: Tue Jun 06 20:23:05 JST 2017
 ;;           By: calancha
-;;     Update #: 642
+;;     Update #: 643
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
@@ -2783,11 +2783,18 @@ MIN-TIME must be a string suitable for `date-to-time' 
like
                              " branches with last commit after time: ")
                      default)))
      (list min-time (and prefix ?\s))))
-  (let ((gited-marker-char (or marker-char gited-marker-char)))
+  (let ((gited-marker-char (or marker-char gited-marker-char))
+        (time (funcall (lambda (x) ; Default HH:MM:SS to 00:00:00.
+                         (setq x (parse-time-string x))
+                         (or (car x) (setf (car x) 0))
+                         (or (cadr x) (setf (cadr x) 0))
+                         (or (cadr (cdr x)) (setf (cadr (cdr x)) 0))
+                         (apply 'encode-time x))
+                       min-time)))
     (gited-mark-if
      (and (not (eolp))
           (let ((commit-time (date-to-time (gited-get-date))))
-            (time-less-p (date-to-time min-time) commit-time)))
+            (time-less-p time commit-time)))
      "matching branch")))
 
 (defun gited-mark-branches-containing-regexp (regexp &optional marker-char 
days)