procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix defcustoms in timeclock.el

Browse source 
* lisp/calendar/timeclock.el (timeclock-get-project-function)
(timeclock-get-reason-function): Fix :type to allow nil.  (Bug#66320)
This commit is contained in:
Mauro Aranda 2023-10-03 08:03:47 -03:00 • committed by Stefan Kangas
parent bdd3013249
commit 2065ab5562
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/calendar/timeclock.el
View 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." previous days. This only affects the timeclock mode line display."
:type 'boolean) :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. "The function used to determine the name of the current project.
When clocking in, and no project is specified, this function will be When clocking in, and no project is specified, this function will be
called to determine what is the current project to be worked on. called to determine what is the current project to be worked on.
If this variable is nil, no questions will be asked." 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. "A function used to determine the reason for clocking out.
When clocking out, and no reason is specified, this function will be When clocking out, and no reason is specified, this function will be
called to determine what is the reason. called to determine what is the reason.
If this variable is nil, no questions will be asked." 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 (defcustom timeclock-get-workday-function nil
"A function used to determine the length of today's workday. "A function used to determine the length of today's workday.