[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-demon.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-demon.el [emacs-unicode-2] |
Date: |
Thu, 09 Sep 2004 17:52:57 -0400 |
Index: emacs/lisp/gnus/gnus-demon.el
diff -c emacs/lisp/gnus/gnus-demon.el:1.7.24.1
emacs/lisp/gnus/gnus-demon.el:1.7.24.2
*** emacs/lisp/gnus/gnus-demon.el:1.7.24.1 Fri Mar 12 00:02:57 2004
--- emacs/lisp/gnus/gnus-demon.el Thu Sep 9 09:36:25 2004
***************
*** 1,5 ****
;;; gnus-demon.el --- daemonic Gnus behaviour
! ;; Copyright (C) 1995,96,97,98,99 Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <address@hidden>
;; Keywords: news
--- 1,7 ----
;;; gnus-demon.el --- daemonic Gnus behaviour
!
! ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2003
! ;; Free Software Foundation, Inc.
;; Author: Lars Magne Ingebrigtsen <address@hidden>
;; Keywords: news
***************
*** 148,179 ****
(if (not (stringp time))
time
(let* ((now (current-time))
! ;; obtain NOW as discrete components -- make a vector for speed
! (nowParts (decode-time now))
! ;; obtain THEN as discrete components
! (thenParts (parse-time-string time))
! (thenHour (elt thenParts 2))
! (thenMin (elt thenParts 1))
! ;; convert time as elements into number of seconds since EPOCH.
! (then (encode-time 0
! thenMin
! thenHour
! ;; If THEN is earlier than NOW, make it
! ;; same time tomorrow. Doc for encode-time
! ;; says that this is OK.
! (+ (elt nowParts 3)
! (if (or (< thenHour (elt nowParts 2))
! (and (= thenHour (elt nowParts 2))
! (<= thenMin (elt nowParts 1))))
! 1 0))
! (elt nowParts 4)
! (elt nowParts 5)
! (elt nowParts 6)
! (elt nowParts 7)
! (elt nowParts 8)))
! ;; calculate number of seconds between NOW and THEN
! (diff (+ (* 65536 (- (car then) (car now)))
! (- (cadr then) (cadr now)))))
;; return number of timesteps in the number of seconds
(round (/ diff gnus-demon-timestep)))))
--- 150,181 ----
(if (not (stringp time))
time
(let* ((now (current-time))
! ;; obtain NOW as discrete components -- make a vector for speed
! (nowParts (decode-time now))
! ;; obtain THEN as discrete components
! (thenParts (parse-time-string time))
! (thenHour (elt thenParts 2))
! (thenMin (elt thenParts 1))
! ;; convert time as elements into number of seconds since EPOCH.
! (then (encode-time 0
! thenMin
! thenHour
! ;; If THEN is earlier than NOW, make it
! ;; same time tomorrow. Doc for encode-time
! ;; says that this is OK.
! (+ (elt nowParts 3)
! (if (or (< thenHour (elt nowParts 2))
! (and (= thenHour (elt nowParts 2))
! (<= thenMin (elt nowParts 1))))
! 1 0))
! (elt nowParts 4)
! (elt nowParts 5)
! (elt nowParts 6)
! (elt nowParts 7)
! (elt nowParts 8)))
! ;; calculate number of seconds between NOW and THEN
! (diff (+ (* 65536 (- (car then) (car now)))
! (- (cadr then) (cadr now)))))
;; return number of timesteps in the number of seconds
(round (/ diff gnus-demon-timestep)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-demon.el [emacs-unicode-2],
Miles Bader <=