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

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

[elpa] externals/gnugo 7f380e4 006/357: [gnugo] Presume working time-dat


From: Stefan Monnier
Subject: [elpa] externals/gnugo 7f380e4 006/357: [gnugo] Presume working time-date.el.
Date: Sun, 29 Nov 2020 14:50:35 -0500 (EST)

branch: externals/gnugo
commit 7f380e4dfa0a18104cf562c810e86365f0fa30a6
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>

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

diff --git a/gnugo.el b/gnugo.el
index 0ccbab5..5a8af78 100644
--- a/gnugo.el
+++ b/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]