From f8cac35aaeabbb69cb9de088f8ed1f80378c6f94 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 12 May 1998 03:12:08 +0000 Subject: [PATCH] (calendar-mode-map): Rename `holidays' menu to `Holidays'. (cal-menu-update): Similar renamings; change the arg to easy-menu-change also. Change some item names. --- lisp/calendar/cal-menu.el | 14 +++++++------- 1 file 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 @@ (define-key calendar-mode-map [menu-bar diary view] '("Other File" . view-other-diary-entries)) -(define-key calendar-mode-map [menu-bar holidays] +(define-key calendar-mode-map [menu-bar Holidays] (cons "Holidays" (make-sparse-keymap "Holidays"))) (define-key calendar-mode-map [menu-bar goto] @@ -194,8 +194,8 @@ l))) (setq l (cons ["Mark Holidays" mark-calendar-holidays t] (cons ["Unmark Calendar" calendar-unmark t] l))) - (easy-menu-change nil "holidays" (nreverse l)) - (define-key calendar-mode-map [menu-bar holidays today] + (easy-menu-change nil "Holidays" (nreverse l)) + (define-key calendar-mode-map [menu-bar Holidays today] `(,(format "For Today (%s)" (calendar-date-string (calendar-current-date) t t)) . cal-menu-today-holidays)) @@ -216,13 +216,13 @@ y1 (calendar-month-name m2 3) y2))))) - (define-key calendar-mode-map [menu-bar holidays 3-month] - `(,(format "For Current Window (%s)" title) + (define-key calendar-mode-map [menu-bar Holidays 3-month] + `(,(format "For Window (%s)" title) . list-calendar-holidays))) (let ((date (calendar-cursor-to-date))) (if date - (define-key calendar-mode-map [menu-bar holidays 1-day] - `(,(format "For Cursor Date (%s)" + (define-key calendar-mode-map [menu-bar Holidays 1-day] + `(,(format "For Date %s" (calendar-date-string date t t)) . calendar-cursor-holidays)))))) ;; Try to avoid entering infinite beep mode in case of errors. -- 2.39.2