diff options
| -rw-r--r-- | lisp/timer.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/timer.el b/lisp/timer.el index 44e6e4ccd53..1a343755661 100644 --- a/lisp/timer.el +++ b/lisp/timer.el | |||
| @@ -71,8 +71,9 @@ fire each time Emacs is idle for that many seconds." | |||
| 71 | timer) | 71 | timer) |
| 72 | 72 | ||
| 73 | (defun timer-next-integral-multiple-of-time (time secs) | 73 | (defun timer-next-integral-multiple-of-time (time secs) |
| 74 | "Yield the next value after TIME that is an integral number of SECS | 74 | "Yield the next value after TIME that is an integral multiple of SECS. |
| 75 | since the epoch. SECS may be a fraction." | 75 | More precisely, the next value, after TIME, that is an integral multiple |
| 76 | of SECS seconds since the epoch. SECS may be a fraction." | ||
| 76 | (let ((time-base (ash 1 16))) | 77 | (let ((time-base (ash 1 16))) |
| 77 | (if (fboundp 'atan) | 78 | (if (fboundp 'atan) |
| 78 | ;; Use floating point, taking care to not lose precision. | 79 | ;; Use floating point, taking care to not lose precision. |