# HG changeset patch
# User james
# Date 1095778472 0
# Node ID 9eeed79aee2539efb36e414b7a575051b2b4f3ee
# Parent  4e852279de884cac21fba42f4b56afd217ae34c3
[xemacs-hg @ 2004-09-21 14:54:25 by james]
Repair my messed up implementation of Martin's set-itimer-name idea.

diff -r 4e852279de88 -r 9eeed79aee25 lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Sep 21 09:24:11 2004 +0000
+++ b/lisp/ChangeLog	Tue Sep 21 14:54:32 2004 +0000
@@ -1,3 +1,7 @@
+2004-09-21  Jerry James  <james@xemacs.org>
+
+	* itimer.el (start-itimer): Fix my bungling of Martin's intentions.
+
 2004-09-20  Martin Buchholz <martin@xemacs.org>
 
 	* itimer.el (set-itimer-name): New function.
diff -r 4e852279de88 -r 9eeed79aee25 lisp/itimer.el
--- a/lisp/itimer.el	Tue Sep 21 09:24:11 2004 +0000
+++ b/lisp/itimer.el	Tue Sep 21 14:54:32 2004 +0000
@@ -369,10 +369,11 @@
 	 nil ))
   (check-nonnegative-number value)
   (if restart (check-nonnegative-number restart))
-  ;; Make proposed itimer name unique if it's not already.
-  (set-itimer-name name)
-  (activate-itimer (list name value restart function is-idle
-			 with-args function-arguments (list 0 0 0)))
+  (let ((itimer (list name value restart function is-idle
+		      with-args function-arguments (list 0 0 0))))
+    ;; Make proposed itimer name unique if it's not already.
+    (set-itimer-name itimer name)
+    (activate-itimer itimer))
   (car itimer-list))
 
 (defun make-itimer ()