Re: calendar-goto-iso-week

[Kevin Rodgers]

Detlev Zundel wrote:
> This is incredibly useful.  Could you please post this on
> emacs.devel so it could get included in the main calendar.el?

More precisely, mailto:address@hidden

Regardless, wouldn't it be easier for calendar-goto-iso-date to simply
provide the beginning of the week as a default, just like it provides
the current year as a default:

*** emacs-21.3/lisp/calendar/cal-iso.el.dist    Mon Jul 16 01:46:48 2001
--- emacs-21.3/lisp/calendar/cal-iso.el Wed Sep  1 15:55:54 2004
***************
*** 115,121 ****
                   '(lambda (x) (and (> x 0) (<= x no-weeks)))))
            (day (calendar-read
                  "ISO day (1-7): "
!                 '(lambda (x) (and (<= 1 x) (<= x 7))))))
       (list (list week day year))))
    (calendar-goto-date (calendar-gregorian-from-absolute
                         (calendar-absolute-from-iso date)))
--- 115,122 ----
                   '(lambda (x) (and (> x 0) (<= x no-weeks)))))
            (day (calendar-read
                  "ISO day (1-7): "
!                 '(lambda (x) (and (<= 1 x) (<= x 7)))
!                 calendar-week-start-day)))
       (list (list week day year))))
    (calendar-goto-date (calendar-gregorian-from-absolute
                         (calendar-absolute-from-iso date)))

--
Kevin Rodgers