diff options
| author | Richard M. Stallman | 1994-01-30 00:29:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-01-30 00:29:09 +0000 |
| commit | abd93e6653e6b0314f67e5f5971c116529a10d5e (patch) | |
| tree | 913cb87a0b6348cff3c3abec99599536c60f5c1a | |
| parent | 1a380827e3eba102eb844d30ee4a7a7c0e735976 (diff) | |
| download | emacs-abd93e6653e6b0314f67e5f5971c116529a10d5e.tar.gz emacs-abd93e6653e6b0314f67e5f5971c116529a10d5e.zip | |
(calendar-sunrise-sunset): Add date to message.
| -rw-r--r-- | lisp/calendar/solar.el | 9 |
1 files changed, 5 insertions, 4 deletions
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." | |||
| 455 | (interactive) | 455 | (interactive) |
| 456 | (if (not (and calendar-latitude calendar-longitude calendar-time-zone)) | 456 | (if (not (and calendar-latitude calendar-longitude calendar-time-zone)) |
| 457 | (solar-setup)) | 457 | (solar-setup)) |
| 458 | (message | 458 | (let ((date (or (calendar-cursor-to-date) |
| 459 | (solar-sunrise-sunset | 459 | (error "Cursor is not on a date!")))) |
| 460 | (or (calendar-cursor-to-date) | 460 | (message "%s: %s" |
| 461 | (error "Cursor is not on a date!"))))) | 461 | (calendar-date-string date t t) |
| 462 | (solar-sunrise-sunset date)))) | ||
| 462 | 463 | ||
| 463 | (defun diary-sunrise-sunset () | 464 | (defun diary-sunrise-sunset () |
| 464 | "Local time of sunrise and sunset as a diary entry. | 465 | "Local time of sunrise and sunset as a diary entry. |