emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Thien-Thi Nguyen
Subject: [elpa] 06/17: [gnugo] Presume working time-date.el.
Date: Mon, 03 Feb 2014 09:35:07 +0000

ttn pushed a commit to branch ttn-gnugo
in repository elpa.

commit 5b335502191a3254bae13d3d68ed661589871c52
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/ChangeLog |    7 +++++++
 packages/gnugo/gnugo.el  |   10 +---------
 2 files changed, 8 insertions(+), 9 deletions(-)

diff --git a/packages/gnugo/ChangeLog b/packages/gnugo/ChangeLog
index e17d651..2d32a8b 100644
--- a/packages/gnugo/ChangeLog
+++ b/packages/gnugo/ChangeLog
@@ -1,5 +1,12 @@
 2014-01-30  Thien-Thi Nguyen  <address@hidden>
 
+       [gnugo] Presume working time-date.el.
+
+       * gnugo.el: Require ‘time-date’ w/o ignoring errors.
+       (time-subtract): Delete conditionally-‘defun’ed func.
+
+2014-01-30  Thien-Thi Nguyen  <address@hidden>
+
        [gnugo] Use ‘cl-labels’ instead of ‘flet’.
 
        * gnugo.el: Don't require ‘cl’;
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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]