X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fitimer.el;h=f4bdbcf14664e47e9681089f0d071ecc64df80a3;hb=34360e98c9689b0a7eedab93e14df13281141bbd;hp=5c7a839d2f8d4705c5cfc339c6454ef2a7aaba5a;hpb=716cfba952c1dc0d2cf5c968971f3780ba728a89;p=chise%2Fxemacs-chise.git.1

diff --git a/lisp/itimer.el b/lisp/itimer.el
index 5c7a839..f4bdbcf 100644
--- a/lisp/itimer.el
+++ b/lisp/itimer.el
@@ -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))
 
@@ -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)