diff options
| author | Sam Steingold | 2014-05-12 19:56:22 -0400 |
|---|---|---|
| committer | Sam Steingold | 2014-05-12 19:56:22 -0400 |
| commit | 001da405b606c58b45e3526af8fadad39a6c4dbf (patch) | |
| tree | b9de4659309800804efcc2136dc62f11f30a444d | |
| parent | ecaf7f4dc06335ee50521c27fbd7aaacae366a02 (diff) | |
| download | emacs-001da405b606c58b45e3526af8fadad39a6c4dbf.tar.gz emacs-001da405b606c58b45e3526af8fadad39a6c4dbf.zip | |
avoid function from `cl'
| -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'." | |||
| 404 | (t (let ((sts seconds-to-string) here) | 404 | (t (let ((sts seconds-to-string) here) |
| 405 | (while (and (car (setq here (pop sts))) | 405 | (while (and (car (setq here (pop sts))) |
| 406 | (<= (car here) delay))) | 406 | (<= (car here) delay))) |
| 407 | (concat (format "%.2f" (/ delay (third here))) (second here)))))) | 407 | (concat (format "%.2f" (/ delay (car (cddr here)))) (cadr here)))))) |
| 408 | 408 | ||
| 409 | (provide 'time-date) | 409 | (provide 'time-date) |
| 410 | 410 | ||