Mercurial > emacs
diff lisp/calendar/calendar.el @ 103770:564ef05eedbc
Ed Reingold <reingold at emr.cs.iit.edu>
(calendar-current-date): Add an optional argument giving an offset from today.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Wed, 08 Jul 2009 02:46:23 +0000 |
parents | 3206ad427d3c |
children | 06bd6035d548 |
line wrap: on
line diff
--- a/lisp/calendar/calendar.el Wed Jul 08 02:38:11 2009 +0000 +++ b/lisp/calendar/calendar.el Wed Jul 08 02:46:23 2009 +0000 @@ -1784,10 +1784,14 @@ (t (set-buffer buffer) (bury-buffer)))))) -(defun calendar-current-date () - "Return the current date in a list (month day year)." +(defun calendar-current-date (&optional offset) + "Return the current date in a list (month day year). +Optional OFFSET is number of days from current date." (let ((now (decode-time))) - (list (nth 4 now) (nth 3 now) (nth 5 now)))) + (calendar-gregorian-from-absolute + (+ (calendar-absolute-from-gregorian + (list (nth 4 now) (nth 3 now) (nth 5 now))) + (if offset offset 0))))) (defun calendar-column-to-segment () "Convert current column to calendar month \"segment\".