From abd93e6653e6b0314f67e5f5971c116529a10d5e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 30 Jan 1994 00:29:09 +0000 Subject: [PATCH] (calendar-sunrise-sunset): Add date to message. --- lisp/calendar/solar.el | 9 +++++---- 1 file 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." (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. -- 2.39.5