Prefer encode-time to its alias

* lisp/calendar/icalendar.el, lisp/calendar/timeclock.el:
* lisp/emacs-lisp/timer.el, lisp/gnus/gnus-delay.el:
* lisp/gnus/gnus-sum.el, lisp/gnus/nndiary.el:
* lisp/gnus/nnrss.el, lisp/net/newst-backend.el:
* lisp/net/rcirc.el, lisp/obsolete/xesam.el:
* lisp/org/org-agenda.el, lisp/org/org-clock.el:
* lisp/org/org-element.el, lisp/org/org-timer.el:
* lisp/org/org.el, lisp/progmodes/flymake.el:
* lisp/url/url-cache.el, lisp/url/url-cookie.el:
Use encode-time instead of its alias seconds-to-time.

2 files changed, 7 insertions, 7 deletions

diff --git a/lisp/calendar/icalendar.el b/lisp/calendar/icalendar.el
index 3bcb7520e29..31ace6fb9be 100644
--- a/lisp/calendar/icalendar.el
+++ b/lisp/calendar/icalendar.el
@@ -1621,7 +1621,7 @@ enumeration, given as a time value, in same format as returned by
                    (mapcar
                     (lambda (offset)
                       (let* ((day (decode-time (time-add now
-                                                         (seconds-to-time
+                                                         (encode-time
                                                           (* offset 60 60 24)))))
                              (d (nth 3 day))
                              (m (nth 4 day))
diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el
index 0562f4a998d..fd6f5310c8d 100644
--- a/lisp/calendar/timeclock.el
+++ b/lisp/calendar/timeclock.el
@@ -528,7 +528,7 @@ non-nil, the amount returned will be relative to past time worked."
   "Return a time value representing the end of today's workday.
 If TODAY-ONLY is non-nil, the value returned will be relative only to
 the time worked today, and not to past time."
-  (seconds-to-time
+  (encode-time
    (- (float-time)
       (let ((discrep (timeclock-find-discrep)))
         (if discrep
@@ -1196,7 +1196,7 @@ HTML-P is non-nil, HTML markup is added."
             (insert project "</b><br>\n")
           (insert project "*\n"))
         (let ((proj-data (cdr (assoc project (timeclock-project-alist log))))
-              (two-weeks-ago (seconds-to-time
+              (two-weeks-ago (encode-time
                               (- (float-time today)
                                  (* 2 7 24 60 60))))
               two-week-len today-len)
@@ -1249,16 +1249,16 @@ HTML-P is non-nil, HTML markup is added."
     <th>-1 year</th>
 </tr>")
         (let* ((day-list (timeclock-day-list))
-               (thirty-days-ago (seconds-to-time
+               (thirty-days-ago (encode-time
                                  (- (float-time today)
                                     (* 30 24 60 60))))
-               (three-months-ago (seconds-to-time
+               (three-months-ago (encode-time
                                   (- (float-time today)
                                      (* 90 24 60 60))))
-               (six-months-ago (seconds-to-time
+               (six-months-ago (encode-time
                                 (- (float-time today)
                                    (* 180 24 60 60))))
-               (one-year-ago (seconds-to-time
+               (one-year-ago (encode-time
                               (- (float-time today)
                                  (* 365 24 60 60))))
                (time-in  (vector (list t) (list t) (list t) (list t) (list t)))