Mercurial > emacs

changeset 96066:f0d44d21e743

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(calendar-cursor-holidays): Accept optional date.
author Glenn Morris <rgm@gnu.org>
date Wed, 18 Jun 2008 02:55:32 +0000
parents ee2671797b73
children e2c64ca546da
files lisp/calendar/holidays.el
diffstat 1 files changed, 6 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/holidays.el	Wed Jun 18 02:55:13 2008 +0000
+++ b/lisp/calendar/holidays.el	Wed Jun 18 02:55:32 2008 +0000
@@ -625,12 +625,14 @@
   '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)))