Mercurial > emacs

diff lisp/calendar/calendar.el @ 109492:2bd8f25ebb95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge trunk
author Kenichi Handa <handa@etlken>
date Fri, 23 Jul 2010 15:50:31 +0900
parents d916e52744cb
children 0466e5504621
line wrap: on
line diff
--- a/lisp/calendar/calendar.el	Wed Jul 14 12:53:53 2010 +0900
+++ b/lisp/calendar/calendar.el	Fri Jul 23 15:50:31 2010 +0900
@@ -2226,6 +2226,10 @@
 interpreted as BC; -1 being 1 BC, and so on."
   (mod (calendar-absolute-from-gregorian date) 7))
 
+(defun calendar-week-end-day ()
+  "Return the index (0 for Sunday, etc.) of the last day of the week."
+  (mod (+ calendar-week-start-day 6) 7))
+
 (defun calendar-unmark ()
   "Delete all diary/holiday marks/highlighting from the calendar."
   (interactive)