[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: calendar-goto-iso-week
From: |
Kevin Rodgers |
Subject: |
Re: calendar-goto-iso-week |
Date: |
Wed, 01 Sep 2004 16:01:41 -0600 |
User-agent: |
Mozilla/5.0 (X11; U; SunOS i86pc; en-US; rv:0.9.4.1) Gecko/20020406 Netscape6/6.2.2 |
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