From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 30 Jan 1994 00:28:40 +0000 (+0000)
Subject: (list-calendar-holidays): Fix mode line.
X-Git-Tag: emacs-19.34~10155
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d34f34921fec2c5b82ba71cf027ff48bfd96d6c;p=emacs.git

(list-calendar-holidays): Fix mode line.
---

diff --git a/lisp/calendar/holidays.el b/lisp/calendar/holidays.el
index e29d5e6d336..addd8f80ac7 100644
--- a/lisp/calendar/holidays.el
+++ b/lisp/calendar/holidays.el
@@ -155,8 +155,11 @@ holidays are found, nil if not."
       (increment-calendar-month m1 y1 -1)
       (increment-calendar-month m2 y2 1)
       (calendar-set-mode-line
-            (format "Notable Dates from %s, %d to %s, %d%%-"
-                    (calendar-month-name m1) y1 (calendar-month-name m2) y2))
+       (if (= y1 y2)
+           (format "Notable Dates from %s to %s, %d%%-"
+                   (calendar-month-name m1) (calendar-month-name m2) y2)
+         (format "Notable Dates from %s, %d to %s, %d%%-"
+                 (calendar-month-name m1) y1 (calendar-month-name m2) y2)))
       (erase-buffer)
       (insert
        (mapconcat