Mercurial > emacs

changeset 5696:baab03aaf3b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(list-calendar-holidays): Fix mode line.
author Richard M. Stallman <rms@gnu.org>
date Sun, 30 Jan 1994 00:28:40 +0000
parents 6d93eb3d5bc7
children 47563495ca14
files lisp/calendar/holidays.el
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/holidays.el	Sun Jan 30 00:26:04 1994 +0000
+++ b/lisp/calendar/holidays.el	Sun Jan 30 00:28:40 1994 +0000
@@ -155,8 +155,11 @@
       (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