mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-01 01:41:01 -08:00
Code Issues Projects Releases Wiki Activity

(calendar-mode-map): Rename holidays' menu to Holidays'.

Browse source 
(cal-menu-update): Similar renamings; change the arg to
easy-menu-change also.  Change some item names.
This commit is contained in:
Richard M. Stallman 1998-05-12 03:12:08 +00:00
parent 9404446f1e
commit f8cac35aae
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lisp/calendar/cal-menu.el
View file

@ -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.