From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 30 Jan 1994 00:29:09 +0000 (+0000)
Subject: (calendar-sunrise-sunset): Add date to message.
X-Git-Tag: emacs-19.34~10153
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=abd93e6653e6b0314f67e5f5971c116529a10d5e;p=emacs.git

(calendar-sunrise-sunset): Add date to message.
---

diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el
index ad226b767a4..d0e9558bf10 100644
--- a/lisp/calendar/solar.el
+++ b/lisp/calendar/solar.el
@@ -455,10 +455,11 @@ Accurate to +/- 2 minutes."
   (interactive)
   (if (not (and calendar-latitude calendar-longitude calendar-time-zone))
       (solar-setup))
-  (message
-   (solar-sunrise-sunset
-    (or (calendar-cursor-to-date)
-	(error "Cursor is not on a date!")))))
+  (let ((date (or (calendar-cursor-to-date)
+                  (error "Cursor is not on a date!"))))
+    (message "%s: %s"
+             (calendar-date-string date t t)
+             (solar-sunrise-sunset date))))
 
 (defun diary-sunrise-sunset ()
   "Local time of sunrise and sunset as a diary entry.