/[emacs]/emacs/lisp/calendar/cal-iso.el
ViewVC logotype

Diff of /emacs/lisp/calendar/cal-iso.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by pj, Mon Jul 16 07:46:48 2001 UTC revision 1.4.8.1 by miles, Fri Apr 4 06:20:15 2003 UTC
# Line 81  date Sunday, December 31, 1 BC." Line 81  date Sunday, December 31, 1 BC."
81  (defun calendar-iso-date-string (&optional date)  (defun calendar-iso-date-string (&optional date)
82    "String of ISO date of Gregorian DATE.    "String of ISO date of Gregorian DATE.
83  Defaults to today's date if DATE is not given."  Defaults to today's date if DATE is not given."
84    (let* ((d (calendar-absolute-from-gregorian    (let* ((d (calendar-absolute-from-gregorian
85               (or date (calendar-current-date))))               (or date (calendar-current-date))))
86           (day (% d 7))           (day (% d 7))
87           (iso-date (calendar-iso-from-absolute d)))           (iso-date (calendar-iso-from-absolute d)))

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.4.8.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26