avoid function from `cl'

001da405 · Sam Steingold · ecaf7f4d · 001da405
Commit 001da405 authored May 12, 2014 by Sam Steingold
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

lisp/calendar/time-date.el lisp/calendar/time-date.el +1 -1

No files found.
--- 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)