# HG changeset patch
# User james
# Date 1096165231 0
# Node ID d8c340c9adb6660b02fb5f9b021dd50624b38143
# Parent  13a357b641103c831f54a7c28a7babf8179cf381
[xemacs-hg @ 2004-09-26 02:20:30 by james]
Do not use set-itimer-name when unique names are needed.

diff -r 13a357b64110 -r d8c340c9adb6 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Sep 25 21:51:28 2004 +0000
+++ b/lisp/ChangeLog	Sun Sep 26 02:20:31 2004 +0000
@@ -1,3 +1,8 @@
+2004-09-25  Jerry James  <james@xemacs.org>
+
+	* itimer.el (start-itimer): Cannot use set-itimer-name now that
+	that function does not uniquify names.
+
 2004-09-22  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* startup.el (load-init-file):
diff -r 13a357b64110 -r d8c340c9adb6 lisp/itimer.el
--- a/lisp/itimer.el	Sat Sep 25 21:51:28 2004 +0000
+++ b/lisp/itimer.el	Sun Sep 26 02:20:31 2004 +0000
@@ -364,13 +364,17 @@
 	 ;; hard to imagine the user specifying these interactively
 	 nil
 	 nil ))
+  (check-string name)
   (check-nonnegative-number value)
   (if restart (check-nonnegative-number restart))
-  (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))
+  ;; Make proposed itimer name unique if it's not already.
+  (let ((oname name)
+	(num 2))
+    (while (get-itimer name)
+      (setq name (format "%s<%d>" oname num))
+      (itimer-increment num)))
+  (activate-itimer (list name value restart function is-idle
+			 with-args function-arguments (list 0 0 0)))
   (car itimer-list))
 
 (defun make-itimer ()