(timeclock-get-workday-function): `timeclock-workday' is not a valid

option for this, rather it is a value that may be returned.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0e7c0797b580d802fae537b2fdb78523d31d6e13..c9e7d3713d7109cb5e77d1f0dcfd40914fc93033 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2002-07-12  Glenn Morris  <gmorris@ast.cam.ac.uk>
+
+       * calendar/timeclock.el (timeclock-get-workday-function):
+       `timeclock-workday' is not a valid option, rather a possible
+       return value.
+
 2002-07-12  Richard M. Stallman  <rms@gnu.org>
 
        * net/ange-ftp.el (ange-ftp-write-region):

diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el
index c93464f02fe0eec425541cf353131281a5b7651b..21a931297e872116dc20b808b1e387224e9a8915 100644 (file)
--- a/lisp/calendar/timeclock.el
+++ b/lisp/calendar/timeclock.el
@@ -124,11 +124,11 @@ If this variable is nil, no questions will be asked."
   "*A function used to determine the length of today's workday.
 The first time that a user clocks in each day, this function will be
 called to determine what the length of the current workday is.  If
-nil, or equal to `timeclock-workday', nothing special will be done.
-If it is a quantity different from `timeclock-workday', however, a
-record will be output to the timelog file to note the fact that that
-day has a different length from the norm."
-  :type '(choice (const nil) (function-item timeclock-workday) function)
+the return value is nil, or equal to `timeclock-workday', nothing special
+will be done.  If it is a quantity different from `timeclock-workday', 
+however, a record will be output to the timelog file to note the fact that
+that day has a different length from the norm."
+  :type '(choice (const nil) function)
   :group 'timeclock)
 
 (defcustom timeclock-ask-before-exiting t