# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822531453 0
# Node ID b5434941b9b17fcd900c88f09f81553830787a91
# Parent  35a18ea09b7b4991134e78f108e72ee00ac4501f
(sunrise-sunset): Pass proper format string to message.

diff -r 35a18ea09b7b -r b5434941b9b1 lisp/calendar/solar.el
--- a/lisp/calendar/solar.el	Thu Jan 25 00:57:23 1996 +0000
+++ b/lisp/calendar/solar.el	Thu Jan 25 00:57:33 1996 +0000
@@ -845,10 +845,11 @@
         (msg (format "%s: %s" date-string time-string))
         (one-window (one-window-p t)))
    (if (<= (length msg) (frame-width))
-       (message msg)
+       (message "%s" msg)
      (with-output-to-temp-buffer "*temp*"
        (princ (concat date-string "\n" time-string)))
-     (message (substitute-command-keys
+     (message "%s"
+	      (substitute-command-keys
                (if one-window
                    (if pop-up-windows
                        "Type \\[delete-other-windows] to remove temp window."