# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 759889734 0
# Node ID 47563495ca145248edb5074a26846c034fdae9fe
# Parent  baab03aaf3b93086ec42543892b47c681aaa4183
(calendar-phases-of-moon): Fix mode line.

diff -r baab03aaf3b9 -r 47563495ca14 lisp/calendar/lunar.el
--- a/lisp/calendar/lunar.el	Sun Jan 30 00:28:40 1994 +0000
+++ b/lisp/calendar/lunar.el	Sun Jan 30 00:28:54 1994 +0000
@@ -192,8 +192,11 @@
     (set-buffer (get-buffer-create lunar-phases-buffer))
     (setq buffer-read-only nil)
     (calendar-set-mode-line
-          (format "Phases of the moon from %s, %d to %s, %d%%-"
-                  (calendar-month-name m1) y1 (calendar-month-name m2) y2))
+     (if (= y1 y2)
+         (format "Phases of the Moon from %s to %s, %d%%-"
+                 (calendar-month-name m1) (calendar-month-name m2) y2)
+       (format "Phases of the Moon from %s, %d to %s, %d%%-"
+               (calendar-month-name m1) y1 (calendar-month-name m2) y2)))
     (erase-buffer)
     (insert
      (mapconcat