Fix <torkel@hpc2n.umu.se>'s name.

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

diff --git a/lisp/itimer.el b/lisp/itimer.el
index 32f93ff..f4bdbcf 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
-(defvar itimer-version "1.08"
+(defvar itimer-version "1.09"
   "Version number of the itimer package.")
 
 (defvar itimer-list nil
@@ -505,7 +505,7 @@ x      start a new itimer
        tab-stop-list '(22 32 40 60 67))
   (abbrev-mode 0)
   (auto-fill-mode 0)
-  (buffer-flush-undo (current-buffer))
+  (buffer-disable-undo (current-buffer))
   (use-local-map itimer-edit-map)
   (set-syntax-table emacs-lisp-mode-syntax-table))
 
@@ -673,7 +673,7 @@ x      start a new itimer
        (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)))
@@ -714,15 +714,20 @@ x      start a new itimer
        (unwind-protect
            (condition-case condition-data
                (save-match-data
+                 ;; Suppress warnings - see comment below.
+                 (defvar last-event-time)
+                 (defvar next-wakeup)
+                 (defvar itimer)
+                 (defvar itimers)
+                 (defvar time-elapsed)
                  (let* ((current-itimer itimer)
                         (quit-flag nil)
                         (inhibit-quit nil)
                         ;; for FSF Emacs timer.el emulation under XEmacs.
                         ;; eldoc expect this to be done, apparently.
                         (this-command nil)
-                        ;; bind these variables so that the
-                        ;; itimer function can't screw with
-                        ;; them.
+                        ;; bind these variables so that the itimer
+                        ;; function can't screw with them.
                         last-event-time next-wakeup
                         itimer itimers time-elapsed)
                    (if (itimer-uses-arguments current-itimer)