# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1205007736 0
# Node ID 870c7b4562837fa9b19b73596b5cb7d54c325312
# Parent  ff47fbef81f226283fa93e0662f49a9adf17558c
(date-to-time, time-subtract, time-add, safe-date-to-time): Doc fixes.

diff -r ff47fbef81f2 -r 870c7b456283 lisp/calendar/time-date.el
--- a/lisp/calendar/time-date.el	Sat Mar 08 20:21:40 2008 +0000
+++ b/lisp/calendar/time-date.el	Sat Mar 08 20:22:16 2008 +0000
@@ -97,7 +97,7 @@
 
 ;;;###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 @@
 
 ;;;###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 @@
 
 ;;;###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 @@
 
 ;;;###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)