XEmacs 21.2.28 "Hermes".

[chise/xemacs-chise.git.1] / lisp / itimer.el

diff --git a/lisp/itimer.el b/lisp/itimer.el
index 32f93ff..5c7a839 100644 (file)
--- a/lisp/itimer.el
+++ b/lisp/itimer.el
@@ -48,7 +48,7 @@
 ;;
 ;; See the doc strings of these functions for more information.
 \f
 ;;
 ;; See the doc strings of these functions for more information.
 \f

-(defvar itimer-version "1.08"
+(defvar itimer-version "1.09"

   "Version number of the itimer package.")
 
 (defvar itimer-list nil
   "Version number of the itimer package.")
 
 (defvar itimer-list nil

@@ -673,7 +673,7 @@ x      start a new itimer
        (inhibit-quit t))
     (setq next-wakeup 600)
     (cond ((and (boundp 'last-command-event-time)
        (inhibit-quit t))
     (setq next-wakeup 600)
     (cond ((and (boundp 'last-command-event-time)

-               (consp 'last-command-event-time))
+               (consp last-command-event-time))

           (setq last-event-time last-command-event-time
                 idle-time (itimer-time-difference (current-time)
                                                   last-event-time)))
           (setq last-event-time last-command-event-time
                 idle-time (itimer-time-difference (current-time)
                                                   last-event-time)))