Mercurial > emacs

changeset 5698:d127e0963a2c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calendar-sunrise-sunset): Add date to message.
author Richard M. Stallman <rms@gnu.org>
date Sun, 30 Jan 1994 00:29:09 +0000
parents 47563495ca14
children a2d78b648542
files lisp/calendar/solar.el
diffstat 1 files changed, 5 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/solar.el	Sun Jan 30 00:28:54 1994 +0000
+++ b/lisp/calendar/solar.el	Sun Jan 30 00:29:09 1994 +0000
@@ -455,10 +455,11 @@
   (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.