From 808977603efd8e4e04b43ce4a92d9157185512d6 Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Fri, 20 Aug 1993 15:55:29 +0000 Subject: [PATCH] * solar.el (solar-sunrise, solar-sunset, solar-longitude-of-sun): Make both arguments to solar-mod float. (sunrise-sunset): Change screen-width to frame-width. --- lisp/calendar/solar.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el index 5acef8aa759..e0e51334a2e 100644 --- a/lisp/calendar/solar.el +++ b/lisp/calendar/solar.el @@ -188,7 +188,7 @@ Returns nil if nothing was entered." (* 1.916 (solar-sin-degrees mean-anomaly)) (* 0.020 (solar-sin-degrees (* 2 mean-anomaly))) 282.634) - 360))) + 360.0))) (defun solar-right-ascension (longitude) "Right ascension of the sun, given its LONGITUDE." @@ -231,7 +231,7 @@ of hours. Returns nil if the sun does not rise at that location on that day." (mod (- (+ local-sunrise solar-right-ascension-at-sunrise) (+ (* 0.065710 approx-sunrise) 6.622)) - 24))) + 24.0))) (+ (- local-mean-sunrise (solar-degrees-to-hours calendar-longitude)) (/ calendar-time-zone 60.0)))))) @@ -262,7 +262,7 @@ of hours. Returns nil if the sun does not set at that location on that day." (local-mean-sunset (mod (- (+ local-sunset solar-right-ascension-at-sunset) (+ (* 0.065710 approx-sunset) 6.622)) - 24))) + 24.0))) (+ (- local-mean-sunset (solar-degrees-to-hours calendar-longitude)) (/ calendar-time-zone 60.0)))))) @@ -430,7 +430,7 @@ This function is suitable for execution in a .emacs file." (time-string (solar-sunrise-sunset date)) (msg (format "%s: %s" date-string time-string)) (one-window (one-window-p t))) - (if (<= (length msg) (screen-width)) + (if (<= (length msg) (frame-width)) (message msg) (with-output-to-temp-buffer "*temp*" (princ (concat date-string "\n" time-string))) -- 2.39.5