diff options
| -rw-r--r-- | lisp/calendar/cal-menu.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/calendar/cal-menu.el b/lisp/calendar/cal-menu.el index 2dc354dd662..5a0e2163702 100644 --- a/lisp/calendar/cal-menu.el +++ b/lisp/calendar/cal-menu.el | |||
| @@ -86,7 +86,7 @@ | |||
| 86 | (define-key calendar-mode-map [menu-bar diary view] | 86 | (define-key calendar-mode-map [menu-bar diary view] |
| 87 | '("Other File" . view-other-diary-entries)) | 87 | '("Other File" . view-other-diary-entries)) |
| 88 | 88 | ||
| 89 | (define-key calendar-mode-map [menu-bar holidays] | 89 | (define-key calendar-mode-map [menu-bar Holidays] |
| 90 | (cons "Holidays" (make-sparse-keymap "Holidays"))) | 90 | (cons "Holidays" (make-sparse-keymap "Holidays"))) |
| 91 | 91 | ||
| 92 | (define-key calendar-mode-map [menu-bar goto] | 92 | (define-key calendar-mode-map [menu-bar goto] |
| @@ -194,8 +194,8 @@ | |||
| 194 | l))) | 194 | l))) |
| 195 | (setq l (cons ["Mark Holidays" mark-calendar-holidays t] | 195 | (setq l (cons ["Mark Holidays" mark-calendar-holidays t] |
| 196 | (cons ["Unmark Calendar" calendar-unmark t] l))) | 196 | (cons ["Unmark Calendar" calendar-unmark t] l))) |
| 197 | (easy-menu-change nil "holidays" (nreverse l)) | 197 | (easy-menu-change nil "Holidays" (nreverse l)) |
| 198 | (define-key calendar-mode-map [menu-bar holidays today] | 198 | (define-key calendar-mode-map [menu-bar Holidays today] |
| 199 | `(,(format "For Today (%s)" | 199 | `(,(format "For Today (%s)" |
| 200 | (calendar-date-string (calendar-current-date) t t)) | 200 | (calendar-date-string (calendar-current-date) t t)) |
| 201 | . cal-menu-today-holidays)) | 201 | . cal-menu-today-holidays)) |
| @@ -216,13 +216,13 @@ | |||
| 216 | y1 | 216 | y1 |
| 217 | (calendar-month-name m2 3) | 217 | (calendar-month-name m2 3) |
| 218 | y2))))) | 218 | y2))))) |
| 219 | (define-key calendar-mode-map [menu-bar holidays 3-month] | 219 | (define-key calendar-mode-map [menu-bar Holidays 3-month] |
| 220 | `(,(format "For Current Window (%s)" title) | 220 | `(,(format "For Window (%s)" title) |
| 221 | . list-calendar-holidays))) | 221 | . list-calendar-holidays))) |
| 222 | (let ((date (calendar-cursor-to-date))) | 222 | (let ((date (calendar-cursor-to-date))) |
| 223 | (if date | 223 | (if date |
| 224 | (define-key calendar-mode-map [menu-bar holidays 1-day] | 224 | (define-key calendar-mode-map [menu-bar Holidays 1-day] |
| 225 | `(,(format "For Cursor Date (%s)" | 225 | `(,(format "For Date %s" |
| 226 | (calendar-date-string date t t)) | 226 | (calendar-date-string date t t)) |
| 227 | . calendar-cursor-holidays)))))) | 227 | . calendar-cursor-holidays)))))) |
| 228 | ;; Try to avoid entering infinite beep mode in case of errors. | 228 | ;; Try to avoid entering infinite beep mode in case of errors. |