Commit abd93e66 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent 1a380827
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment