ttn pushed a commit to branch master
in repository elpa.
commit 6de5f71cfedf2f52b85948fe1831589b55d8d73f
Author: Thien-Thi Nguyen <t...@gnu.org>
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)))
