[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calendar/holidays.el,v
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calendar/holidays.el,v |
Date: |
Wed, 18 Jun 2008 02:55:32 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Changes by: Glenn Morris <gm> 08/06/18 02:55:32
Index: holidays.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/calendar/holidays.el,v
retrieving revision 1.80
retrieving revision 1.81
diff -u -b -r1.80 -r1.81
--- holidays.el 6 May 2008 03:07:57 -0000 1.80
+++ holidays.el 18 Jun 2008 02:55:32 -0000 1.81
@@ -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)))
- [Emacs-diffs] Changes to emacs/lisp/calendar/holidays.el,v,
Glenn Morris <=