Re: Time zone and 'lapsed under NT

[Lars Magne Ingebrigtsen <larsi@gnus.org>]

Toby Speight <Toby.Speight@streapadair.freeserve.co.uk> writes:

> Here's a workaround: in time-date.el, replace date-to-time with
> 
> (defun date-to-time (date)
>   "Convert DATE into time."
>   (condition-case ()
>       (let ((time (parse-time-string date)))
>         (setq time (cons (- (car time)
>                             (- (or (nth 8 time) 0)
>                                (or (car (current-time-zone)) 0)))
>                          (cdr time)))
>         (setcdr (cdr (cdr (cdr (cdr (cdr time))))) nil)
>         (apply 'encode-time time))
>     (error (error "Invalid date: %s" date))))
> 
> This could do with some testing in other time zones and a regression
> test on non-NT platforms, though.

I don't think this will work correctly on non-NT platforms...

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen