[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/calendar/time-date.el [emacs-unicode
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/calendar/time-date.el [emacs-unicode-2] |
Date: |
Thu, 09 Sep 2004 17:59:13 -0400 |
Index: emacs/lisp/calendar/time-date.el
diff -c emacs/lisp/calendar/time-date.el:1.5.10.3
emacs/lisp/calendar/time-date.el:1.5.10.4
*** emacs/lisp/calendar/time-date.el:1.5.10.3 Fri Aug 27 07:00:26 2004
--- emacs/lisp/calendar/time-date.el Thu Sep 9 09:36:32 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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/calendar/time-date.el [emacs-unicode-2],
Miles Bader <=