diff options
| author | Richard M. Stallman | 1994-01-30 00:28:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-01-30 00:28:40 +0000 |
| commit | 1d34f34921fec2c5b82ba71cf027ff48bfd96d6c (patch) | |
| tree | ce3541fbe5dd5cc5f6abee1801962d1006b97943 | |
| parent | 7dfb3ea2b5f02bc5a4e6db1214d8d20dd8cfe19e (diff) | |
| download | emacs-1d34f34921fec2c5b82ba71cf027ff48bfd96d6c.tar.gz emacs-1d34f34921fec2c5b82ba71cf027ff48bfd96d6c.zip | |
(list-calendar-holidays): Fix mode line.
| -rw-r--r-- | lisp/calendar/holidays.el | 7 |
1 files 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." | |||
| 155 | (increment-calendar-month m1 y1 -1) | 155 | (increment-calendar-month m1 y1 -1) |
| 156 | (increment-calendar-month m2 y2 1) | 156 | (increment-calendar-month m2 y2 1) |
| 157 | (calendar-set-mode-line | 157 | (calendar-set-mode-line |
| 158 | (format "Notable Dates from %s, %d to %s, %d%%-" | 158 | (if (= y1 y2) |
| 159 | (calendar-month-name m1) y1 (calendar-month-name m2) y2)) | 159 | (format "Notable Dates from %s to %s, %d%%-" |
| 160 | (calendar-month-name m1) (calendar-month-name m2) y2) | ||
| 161 | (format "Notable Dates from %s, %d to %s, %d%%-" | ||
| 162 | (calendar-month-name m1) y1 (calendar-month-name m2) y2))) | ||
| 160 | (erase-buffer) | 163 | (erase-buffer) |
| 161 | (insert | 164 | (insert |
| 162 | (mapconcat | 165 | (mapconcat |