projects
/
gnus
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
4bc4852
)
time-date.el (seconds-to-string): Avoid function from `cl'
author
Sam Steingold
<sds@gnu.org>
Tue, 13 May 2014 01:09:31 +0000
(
01:09
+0000)
committer
Katsumi Yamaoka
<yamaoka@jpl.org>
Tue, 13 May 2014 01:09:31 +0000
(
01:09
+0000)
lisp/time-date.el
patch
|
blob
|
history
diff --git
a/lisp/time-date.el
b/lisp/time-date.el
index
eb534b6
..
b04cfcd
100644
(file)
--- 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)