Commit 001da405 authored by Sam Steingold's avatar Sam Steingold

avoid function from `cl'

parent ecaf7f4d
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment