(date-to-time, time-subtract, time-add, safe-date-to-time): Doc fixes.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 05886da083daaac5c65f9a5aa61e5bf52427847e..0c82d64f7a9a3e6af032c08dc4c0f9116eed5fe8 100644 (file)
--- 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 b8193ea963d3896db68ea7e19a2b8148102003e7..5b0ddf70f00561c74ba4861cb52ca23fd2d7ac6b 100644 (file)
--- 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)