solar.el: Tweak sunrise-sunset output

* lisp/calendar/solar.el (solar-sunrise-sunset-string): Shorten message a bit.
(sunrise-sunset): Use message rather than a window.

Fixes: debbugs:19859

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b04319891fd968998ee55b8332a26bdca43e0cbe..dc62555a471cc5e347e79a17f7b35c577a40178c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2015-02-20  Glenn Morris  <rgm@gnu.org>
 
+       * calendar/solar.el (solar-sunrise-sunset-string):
+       Shorten message a little.
+       (sunrise-sunset): Use message rather than a window.  (Bug#19859)
+
        * progmodes/f90.el (f90-keywords-re, f90-procedures-re)
        (f90-font-lock-keywords-2): Some F2008 additions.
 

diff --git a/lisp/calendar/solar.el b/lisp/calendar/solar.el
index 46cd8d3eb6dab4bd543b2f0ccc1da6105a06cfc4..25a24eeffeb4cf567ac87b2f1f348f73d09bf987 100644 (file)
--- a/lisp/calendar/solar.el
+++ b/lisp/calendar/solar.el
@@ -657,7 +657,7 @@ Corresponding value is nil if there is no sunrise/sunset."
 Optional NOLOCATION non-nil means do not print the location."
   (let ((l (solar-sunrise-sunset date)))
     (format
-     "%s, %s%s (%s hours daylight)"
+     "%s, %s%s (%s hrs daylight)"
      (if (car l)
          (concat "Sunrise " (apply 'solar-time-string (car l)))
        "No sunrise")
@@ -847,20 +847,12 @@ This function is suitable for execution in an init file."
          (date (if (< arg 4) (calendar-current-date) (calendar-read-date)))
          (date-string (calendar-date-string date t))
          (time-string (solar-sunrise-sunset-string date))
-         (msg (format "%s: %s" date-string time-string))
-         (one-window (one-window-p t)))
-    (if (<= (length msg) (frame-width))
-        (message "%s" msg)
-      (with-output-to-temp-buffer "*temp*"
-        (princ (concat date-string "\n" time-string)))
-      (message "%s"
-               (substitute-command-keys
-                (if one-window
-                    (if pop-up-windows
-                        "Type \\[delete-other-windows] to remove temp window."
-                      "Type \\[switch-to-buffer] RET to remove temp window.")
-                  "Type \\[switch-to-buffer-other-window] RET to restore old \
-contents of temp window."))))))
+         (msg (format "%s%s"
+                      (if (< arg 4) ""  ; don't print date if it's today's
+                        (format "%s: " date-string))
+                      time-string)))
+    (message "%s" msg)
+    msg))
 
 ;;;###cal-autoload
 (defun calendar-sunrise-sunset (&optional event)