Mercurial > emacs

changeset 40671:526c9b7941f5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(timeclock-out): Signal an error if timeclock-last-event is nil.
author Eli Zaretskii <eliz@gnu.org>
date Sat, 03 Nov 2001 15:48:13 +0000
parents 8cb4d744ae0d
children 4014cfe60f0d
files lisp/calendar/timeclock.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/calendar/timeclock.el	Sat Nov 03 15:08:36 2001 +0000
+++ b/lisp/calendar/timeclock.el	Sat Nov 03 15:48:13 2001 +0000
@@ -370,6 +370,8 @@
 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