diff options
| author | Brian Fox | 1993-09-21 06:51:15 +0000 |
|---|---|---|
| committer | Brian Fox | 1993-09-21 06:51:15 +0000 |
| commit | 1b41c5d14da0abd5eda3530411b3385e8263fc0b (patch) | |
| tree | f5bad9750e8f82d67e9e20bd23f2133800d3fc75 | |
| parent | 4de97979a2b078c62065b64c84876d23ee06a449 (diff) | |
| download | emacs-1b41c5d14da0abd5eda3530411b3385e8263fc0b.tar.gz emacs-1b41c5d14da0abd5eda3530411b3385e8263fc0b.zip | |
(calendar-absolute-from-time): Fix typo by interchanging (floor) and (%).
| -rw-r--r-- | lisp/calendar/cal-dst.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/calendar/cal-dst.el b/lisp/calendar/cal-dst.el index 15ce7cd722a..d480914ded8 100644 --- a/lisp/calendar/cal-dst.el +++ b/lisp/calendar/cal-dst.el | |||
| @@ -64,7 +64,7 @@ absolute date ABS-DATE is the equivalent moment to X." | |||
| 64 | ;; floor((2^16 h +l) / (60*60*24)) | 64 | ;; floor((2^16 h +l) / (60*60*24)) |
| 65 | (* 512 (floor h 675)) (floor u 675)) | 65 | (* 512 (floor h 675)) (floor u 675)) |
| 66 | ;; (2^16 h +l) % (60*60*24) | 66 | ;; (2^16 h +l) % (60*60*24) |
| 67 | (+ (* (mod u 675) 128) (mod l 128))))) | 67 | (+ (* (% u 675) 128) (% l 128))))) |
| 68 | 68 | ||
| 69 | (defun calendar-time-from-absolute (abs-date s) | 69 | (defun calendar-time-from-absolute (abs-date s) |
| 70 | "Time of absolute date ABS-DATE, S seconds after midnight. | 70 | "Time of absolute date ABS-DATE, S seconds after midnight. |