diff options
| author | Sam Steingold <sds@gnu.org> | 2014-05-12 19:56:22 -0400 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2014-05-12 19:56:22 -0400 |
| commit | 001da405b606c58b45e3526af8fadad39a6c4dbf (patch) | |
| tree | b9de4659309800804efcc2136dc62f11f30a444d /lisp/calendar/time-date.el | |
| parent | ecaf7f4dc06335ee50521c27fbd7aaacae366a02 (diff) | |
| download | emacs-001da405b606c58b45e3526af8fadad39a6c4dbf.tar.gz | |
avoid function from `cl'
Diffstat (limited to 'lisp/calendar/time-date.el')
| -rw-r--r-- | lisp/calendar/time-date.el | 2 |
1 files changed, 1 insertions, 1 deletions
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) |