procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(calendar-cursor-holidays): Accept optional date.

Browse source
This commit is contained in:
Glenn Morris 2008-06-18 02:55:32 +00:00
parent ed6c573784
commit f1eb28f2ab
1 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/calendar/holidays.el
View file

@ -625,12 +625,14 @@ The holidays are those in the list `calendar-holidays'."
'check-calendar-holidays 'calendar-check-holidays "23.1")
;;;###cal-autoload
(defun calendar-cursor-holidays ()
"Find holidays for the date specified by the cursor in the calendar window."
(defun calendar-cursor-holidays (&optional date)
"Find holidays for the date specified by the cursor in the calendar window.
Optional DATE is a list (month day year) to use instead of the
cursor position."
(interactive)
(message "Checking holidays...")
(let* ((date (calendar-cursor-to-date t))
(date-string (calendar-date-string date))
(or date (setq date (calendar-cursor-to-date t)))
(let* ((date-string (calendar-date-string date))
(holiday-list (calendar-check-holidays date))
(holiday-string (mapconcat 'identity holiday-list "; "))
(msg (format "%s: %s" date-string holiday-string)))