(timeclock-out): Signal an error if timeclock-last-event is nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dac923524986de0c333f3313bfe6d45dfc887b51..2cc6cce8e79fc27b94b4ec854ed04d9cab30d108 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-11-03  Eli Zaretskii  <eliz@is.elta.co.il>
+
+       * calendar/timeclock.el (timeclock-out): Signal an error if
+       timeclock-last-event is nil.
+
 2001-11-01  Richard M. Stallman  <rms@gnu.org>
 
        * files.el (find-backup-file-name): Use make-backup-file-name.

diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el
index e570f9bf2f77a4285ae946e2e4598c56aeb7a27f..a7f3c73d32d8ad46962a24fb7b86037a30951bd6 100644 (file)
--- a/lisp/calendar/timeclock.el
+++ b/lisp/calendar/timeclock.el
@@ -370,6 +370,8 @@ FIND-REASON is non-nil -- or the user calls `timeclock-out'
 interactively -- call the function `timeclock-get-reason-function' to
 discover the reason."
   (interactive "P")
+  (or timeclock-last-event
+      (error "You haven't clocked in!"))
   (if (equal (downcase (car timeclock-last-event)) "o")
       (error "You've already clocked out!")
     (timeclock-log