mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Richard M. Stallman 1994-01-30 00:29:09 +00:00
parent 1a380827e3
commit abd93e6653
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/calendar/solar.el
View File

@ -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.