[elpa] 06/51: [gnugo] Presume working time-date.el.

[Thien-Thi Nguyen]

ttn pushed a commit to branch master
in repository elpa.

commit 6de5f71cfedf2f52b85948fe1831589b55d8d73f
Author: Thien-Thi Nguyen <address@hidden>
Date:   Thu Jan 30 14:43:43 2014 +0100

    [gnugo] Presume working time-date.el.
    
    * packages/gnugo/gnugo.el: Require ‘time-date’ w/o ignoring errors.
    (time-subtract): Delete conditionally-‘defun’ed func.
---
 packages/gnugo/gnugo.el |   10 +---------
 1 files changed, 1 insertions(+), 9 deletions(-)

diff --git a/packages/gnugo/gnugo.el b/packages/gnugo/gnugo.el
index 0ccbab5..5a8af78 100644
--- a/packages/gnugo/gnugo.el
+++ b/packages/gnugo/gnugo.el
@@ -113,7 +113,7 @@
 ;;; Code:
 
 (require 'cl-lib)                       ; use the source luke!
-(ignore-errors (require 'time-date))    ; for `time-subtract'
+(require 'time-date)                    ; for `time-subtract'
 
 ;;;---------------------------------------------------------------------------
 ;;; Political arts
@@ -223,14 +223,6 @@ one is kept."
         (setq tail (cdr tail))))
     list))
 
-(unless (fboundp 'time-subtract)
-  (defun time-subtract (t1 t2)          ; from repo 2004-10-29
-    "Subtract two time values.
-Return the difference in the format of a time value."
-    (let ((borrow (< (cadr t1) (cadr t2))))
-      (list (- (car t1) (car t2) (if borrow 1 0))
-            (- (+ (if borrow 65536 0) (cadr t1)) (cadr t2))))))
-
 (unless (fboundp 'window-edges)
   (defun window-edges (&optional window)
     (let ((cw (/ (frame-pixel-width) (frame-width)))