mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

Rename all list-calendar-holidays callers to calendar-list-holidays,

Browse Source 
list-holidays to holiday-list, check-calendar-holidays to
calendar-check-holidays, and mark-calendar-holidays to
calendar-mark-holidays.
This commit is contained in:
Glenn Morris 2007-09-14 04:29:10 +00:00
parent 8705f7f342
commit 175ede29fd
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/calendar/cal-menu.el
View File

@ -87,7 +87,7 @@
["For Cursor Date -" calendar-cursor-holidays
:suffix (calendar-date-string (calendar-cursor-to-date) t t)
:visible (calendar-cursor-to-date)]
["For Window -" list-calendar-holidays
["For Window -" calendar-list-holidays
:suffix (cal-menu-holiday-window-suffix)]
["For Today -" cal-menu-today-holidays
:suffix (calendar-date-string (calendar-current-date) t t)]
@ -98,7 +98,7 @@
(push (vector "For Year"
`(lambda ()
(interactive)
(list-holidays (+ displayed-year ,(- i 5))))
(holiday-list (+ displayed-year ,(- i 5))))
:suffix `(number-to-string (+ displayed-year ,(- i 5))))
l))
(nreverse l))
@ -157,19 +157,19 @@ not available."
"Display a list of the holidays of the selected date's year."
(interactive)
(let ((year (extract-calendar-year (calendar-cursor-to-date))))
(list-holidays year year)))
(holiday-list year year)))
(defun cal-menu-list-holidays-following-year ()
"Display a list of the holidays of the following year."
(interactive)
(let ((year (1+ (extract-calendar-year (calendar-cursor-to-date)))))
(list-holidays year year)))
(holiday-list year year)))
(defun cal-menu-list-holidays-previous-year ()
"Display a list of the holidays of the previous year."
(interactive)
(let ((year (1- (extract-calendar-year (calendar-cursor-to-date)))))
(list-holidays year year)))
(holiday-list year year)))
(defun calendar-event-to-date (&optional error)
"Date of last event.
@ -194,14 +194,14 @@ ERROR is t, otherwise just returns nil."
(calendar-cursor-to-date (calendar-current-date))
(calendar-cursor-holidays)))
(autoload 'check-calendar-holidays "holidays")
(autoload 'calendar-check-holidays "holidays")
(autoload 'diary-list-entries "diary-lib")
(defun calendar-mouse-holidays (&optional event)
"Pop up menu of holidays for mouse selected date."
(interactive "e")
(let* ((date (calendar-event-to-date))
(l (mapcar 'list (check-calendar-holidays date)))
(l (mapcar 'list (calendar-check-holidays date)))
(selection
(cal-menu-x-popup-menu
event
@ -226,7 +226,7 @@ Any holidays are shown if `holidays-in-diary-buffer' is t."
(mapcar (lambda (x) (split-string (cadr x) "\n"))
(diary-list-entries date 1 'list-only)))
(holidays (if holidays-in-diary-buffer
(check-calendar-holidays date)))
(calendar-check-holidays date)))
(title (concat "Diary entries "
(if diary (format "from %s " diary) "")
"for "
@ -461,8 +461,8 @@ The output is in landscape format, one month to a page."
["Scroll forward" calendar-scroll-left-three-months]
["Scroll backward" calendar-scroll-right-three-months]
["Mark diary entries" mark-diary-entries]
["List holidays" list-calendar-holidays]
["Mark holidays" mark-calendar-holidays]
["List holidays" calendar-list-holidays]
["Mark holidays" calendar-mark-holidays]
["Unmark" calendar-unmark]
["Lunar phases" calendar-phases-of-moon]
["Show diary" diary-show-all-entries]