timeclock.el timeclock-get-workday-function

[Matt Armstrong]

This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English, because the Emacs maintainers do not have
translators to read other languages for them.

Your bug report will be posted to the bug-gnu-emacs@gnu.org mailing list,
and to the gnu.emacs.bug news group.

In GNU Emacs 21.2.1 (i386-debian-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2002-03-22 on raven, modified by Debian
configured using `configure  i386-debian-linux-gnu --prefix=/usr 
--sharedstatedir=/var/lib --libexecdir=/usr/lib --localstatedir=/var/lib 
--infodir=/usr/share/info --mandir=/usr/share/man --with-pop=yes --with-x=yes 
--with-x-toolkit=athena --without-gif'
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: 
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: C
  locale-coding-system: nil
  default-enable-multibyte-characters: t

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

The customization for timeclock.el's timeclock-get-workday-function
variable allows it to be set to 'timeclock-workday, which is not
actually a function.  If you do this, you won't actually be able to
clock in, since timeclock passes the value to funcall.

Debugger entered--Lisp error: (void-function timeclock-workday)
  timeclock-workday()
  funcall(timeclock-workday)
  (and timeclock-get-workday-function (funcall timeclock-get-workday-function))
  (or (and (numberp arg) arg) (and arg 0) (and timeclock-get-workday-function 
(funcall timeclock-get-workday-function)) timeclock-workday)
  (let ((workday ...)) (run-hooks (quote timeclock-first-in-hook)) (setq 
timeclock-discrepancy (- timeclock-discrepancy workday)) (if (not ...) 
(timeclock-log "h" ...)))
  (if (equal (timeclock-time-to-date ...) (timeclock-time-to-date ...)) nil 
(let (...) (run-hooks ...) (setq timeclock-discrepancy ...) (if ... ...)))
  (unless (equal (timeclock-time-to-date ...) (timeclock-time-to-date ...)) 
(let (...) (run-hooks ...) (setq timeclock-discrepancy ...) (if ... ...)))
  (if (equal (car timeclock-last-event) "i") (error "You've already clocked 
in!") (unless timeclock-last-event (timeclock-reread-log)) (unless (equal ... 
...) (let ... ... ... ...)) (timeclock-log "i" (or project ...)) (run-hooks 
(quote timeclock-in-hook)))
  timeclock-in(nil)
  call-interactively(timeclock-in)



Recent input:
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p 
C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p C-p 
C-p <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <help-echo> <menu-bar> <help-menu> 
<report-emacs-bug> t i m e c l o c k . e l SPC C-g 
C-s t i m e c l o c k - g e t - w o r k d a y - f u 
n c t i o n C-s C-s C-s C-s <return> C-x 2 <help-echo> 
<help-echo> <help-echo> <help-echo> <help-echo> <help-echo> 
<help-echo> <help-echo> <menu-bar> <help-menu> <re
port-emacs-bug>

Recent messages:
Loading gnus-async...done
Loading smiley...done
Loading gnus-cite...done
Parsing BBDB... (frobnicating...done)
keyboard-quit: Quit
Quit
iswitchb-read-buffer: Quit
Loading emacsbug...done
byte-code: Quit
Mark saved where search started

-- 
Don't send mail to Nellie_Lancing@hole.lickey.com
The address is there for spammers to harvest.