From 001da405b606c58b45e3526af8fadad39a6c4dbf Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Mon, 12 May 2014 19:56:22 -0400 Subject: [PATCH] avoid function from `cl' --- lisp/calendar/time-date.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 2.39.2