]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix defcustoms in timeclock.el
authorMauro Aranda <maurooaranda@gmail.com>
Tue, 3 Oct 2023 11:03:47 +0000 (08:03 -0300)
committerStefan Kangas <stefankangas@gmail.com>
Tue, 3 Oct 2023 12:36:30 +0000 (14:36 +0200)
* lisp/calendar/timeclock.el (timeclock-get-project-function)
(timeclock-get-reason-function): Fix :type to allow nil.  (Bug#66320)

lisp/calendar/timeclock.el

index 0cd03c1588101a6450a33b50e43b98505ead9e19..7606805a99bcdc4c7d7a72971daa94e3ccac69f1 100644 (file)
@@ -100,19 +100,21 @@ into account any discrepancy of time under-worked or over-worked on
 previous days.  This only affects the timeclock mode line display."
   :type 'boolean)
 
-(defcustom timeclock-get-project-function 'timeclock-ask-for-project
+(defcustom timeclock-get-project-function #'timeclock-ask-for-project
   "The function used to determine the name of the current project.
 When clocking in, and no project is specified, this function will be
 called to determine what is the current project to be worked on.
 If this variable is nil, no questions will be asked."
-  :type 'function)
+  :type '(choice (const :tag "Don't ask" nil)
+                 function))
 
-(defcustom timeclock-get-reason-function 'timeclock-ask-for-reason
+(defcustom timeclock-get-reason-function #'timeclock-ask-for-reason
   "A function used to determine the reason for clocking out.
 When clocking out, and no reason is specified, this function will be
 called to determine what is the reason.
 If this variable is nil, no questions will be asked."
-  :type 'function)
+  :type '(choice (const :tag "Don't ask" nil)
+                 function))
 
 (defcustom timeclock-get-workday-function nil
   "A function used to determine the length of today's workday.