Mercurial > emacs
changeset 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 | 39e38bc3d6d0 |
| children | 06bd6035d548 |
| files | lisp/ChangeLog lisp/calendar/calendar.el |
| diffstat | 2 files changed, 12 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Jul 08 02:38:11 2009 +0000 +++ b/lisp/ChangeLog Wed Jul 08 02:46:23 2009 +0000 @@ -1,3 +1,8 @@ +2009-07-08 Ed Reingold <reingold@emr.cs.iit.edu> + + * calendar/calendar.el (calendar-current-date): + Add an optional argument giving an offset from today. + 2009-07-08 Glenn Morris <rgm@gnu.org> * tutorial.el (tutorial--describe-nonstandard-key):
--- 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\".