From 1d34f34921fec2c5b82ba71cf027ff48bfd96d6c Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 30 Jan 1994 00:28:40 +0000 Subject: [PATCH] (list-calendar-holidays): Fix mode line. --- lisp/calendar/holidays.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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 -- 2.39.5