emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/calendar/time-date.el


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/calendar/time-date.el
Date: Sat, 04 Sep 2004 09:48:19 -0400

Index: emacs/lisp/calendar/time-date.el
diff -c emacs/lisp/calendar/time-date.el:1.8 
emacs/lisp/calendar/time-date.el:1.9
*** emacs/lisp/calendar/time-date.el:1.8        Thu Aug 26 18:20:52 2004
--- emacs/lisp/calendar/time-date.el    Sat Sep  4 13:13:48 2004
***************
*** 1,5 ****
  ;;; time-date.el --- date and time handling functions
! ;; Copyright (C) 1998, 1999, 2000 Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
  ;;    Masanobu Umeda <address@hidden>
--- 1,5 ----
  ;;; time-date.el --- date and time handling functions
! ;; Copyright (C) 1998, 1999, 2000, 2004 Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
  ;;    Masanobu Umeda <address@hidden>
***************
*** 38,44 ****
             (parse-time-string
              ;; `parse-time-string' isn't sufficiently general or
              ;; robust.  It fails to grok some of the formats that
!             ;; timzeone does (e.g. dodgy post-2000 stuff from some
              ;; Elms) and either fails or returns bogus values.  Lars
              ;; reverted this change, but that loses non-trivially
              ;; often for me.  -- fx
--- 38,44 ----
             (parse-time-string
              ;; `parse-time-string' isn't sufficiently general or
              ;; robust.  It fails to grok some of the formats that
!             ;; timezone does (e.g. dodgy post-2000 stuff from some
              ;; Elms) and either fails or returns bogus values.  Lars
              ;; reverted this change, but that loses non-trivially
              ;; often for me.  -- fx
***************
*** 177,182 ****
--- 177,187 ----
         (- (/ (1- year) 100))          ;       - century years
         (/ (1- year) 400))))           ;       + Gregorian leap years
  
+ (defun time-to-number-of-days (time)
+   "Return the number of days represented by TIME.
+ The number of days will be returned as a floating point number."
+   (/ (+ (* 1.0 65536 (car time)) (cadr time)) (* 60 60 24)))
+ 
  ;;;###autoload
  (defun safe-date-to-time (date)
    "Parse a string that represents a date-time and return a time value.




reply via email to

[Prev in Thread] Current Thread [Next in Thread]