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

diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el
index ad226b767a4f73a955eb9dc39b235f4824c33630..d0e9558bf1008aca0aa23a0d6971e176545a13eb 100644 (file)
--- 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.