[Emacs-diffs] trunk r117094: avoid function from `cl'

[Sam Steingold]

------------------------------------------------------------
revno: 117094
revision-id: address@hidden
parent: address@hidden
committer: Sam Steingold <address@hidden>
branch nick: trunk
timestamp: Mon 2014-05-12 19:56:22 -0400
message:
  avoid function from `cl'
modified:
  lisp/calendar/time-date.el     
timedate.el-20091113204419-o5vbwnq5f7feedwu-2380

=== modified file 'lisp/calendar/time-date.el'
--- a/lisp/calendar/time-date.el        2014-05-12 16:14:24 +0000
+++ b/lisp/calendar/time-date.el        2014-05-12 23:56:22 +0000
@@ -404,7 +404,7 @@
         (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)