From 0b06b1140cae4b466e4d0119d2070a628c02aa2b Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Tue, 13 May 2014 01:09:31 +0000 Subject: [PATCH] time-date.el (seconds-to-string): Avoid function from `cl' --- lisp/time-date.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/time-date.el b/lisp/time-date.el index eb534b6b8..b04cfcd9f 100644 --- a/lisp/time-date.el +++ b/lisp/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.25.1