From 7d4005cc08853cbe0a21036827456a889ef7697c Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sat, 8 Mar 2008 20:22:36 +0000 Subject: [PATCH] (date-to-time, time-subtract, time-add, safe-date-to-time): Doc fixes. --- lisp/ChangeLog | 3 +++ lisp/calendar/time-date.el | 8 ++++---- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 05886da083d..0c82d64f7a9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -102,6 +102,9 @@ * calendar/cal-hebrew.el, calendar/holidays.el, calendar/lunar.el: * calendar/solar.el: Unquote lambda functions. + * calendar/time-date.el (date-to-time, time-subtract, time-add) + (safe-date-to-time): Doc fixes. + * calendar/todo-mode.el: Remove un-needed eval-when-compile. * textmodes/org.el (list-diary-entries-hook): Declare for compiler. diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el index b8193ea963d..5b0ddf70f00 100644 --- a/lisp/calendar/time-date.el +++ b/lisp/calendar/time-date.el @@ -97,7 +97,7 @@ and type 2 is the list (HIGH LOW MICRO)." ;;;###autoload (defun date-to-time (date) - "Parse a string that represents a date-time and return a time value." + "Parse a string DATE that represents a date-time and return a time value." (condition-case () (apply 'encode-time (parse-time-string @@ -160,7 +160,7 @@ TIME should be either a time value or a date-time string." ;;;###autoload (defun time-subtract (t1 t2) - "Subtract two time values. + "Subtract two time values, T1 minus T2. Return the difference in the format of a time value." (with-decoded-time-value ((high low micro type t1) (high2 low2 micro2 type2 t2)) @@ -178,7 +178,7 @@ Return the difference in the format of a time value." ;;;###autoload (defun time-add (t1 t2) - "Add two time values. One should represent a time difference." + "Add two time values T1 and T2. One should represent a time difference." (with-decoded-time-value ((high low micro type t1) (high2 low2 micro2 type2 t2)) (setq high (+ high high2) @@ -248,7 +248,7 @@ The number of days will be returned as a floating point number." ;;;###autoload (defun safe-date-to-time (date) - "Parse a string that represents a date-time and return a time value. + "Parse a string DATE that represents a date-time and return a time value. If DATE is malformed, return a time value of zeros." (condition-case () (date-to-time date) -- 2.39.5