From: Sam Steingold <sds@gnu.org>
Date: Mon, 12 May 2014 23:56:22 +0000 (-0400)
Subject: avoid function from `cl'
X-Git-Tag: emacs-25.0.90~2612^2~709^2~945
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=001da405b606c58b45e3526af8fadad39a6c4dbf;p=emacs.git

avoid function from `cl'
---

diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el
index eb534b6b89f..b04cfcd9fe4 100644
--- a/lisp/calendar/time-date.el
+++ b/lisp/calendar/time-date.el
@@ -404,7 +404,7 @@ This function does not work for SECONDS greater than `most-positive-fixnum'."
         (t (let ((sts seconds-to-string) here)
              (while (and (car (setq here (pop sts)))
                          (<= (car here) delay)))
-             (concat (format "%.2f" (/ delay (third here))) (second here))))))
+             (concat (format "%.2f" (/ delay (car (cddr here)))) (cadr here))))))
 
 (provide 'time-date)