# HG changeset patch
# User james
# Date 1095891291 0
# Node ID 0da64f4bd0bc75d9a33c572e7573107a4b09986e
# Parent  513db903b41a6c118fff93682361512b2915593a
[xemacs-hg @ 2004-09-22 22:14:47 by james]
Do not uniquify names in set-itimer-name, as requested by Kyle.

diff -r 513db903b41a -r 0da64f4bd0bc lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Sep 22 21:54:47 2004 +0000
+++ b/lisp/ChangeLog	Wed Sep 22 22:14:51 2004 +0000
@@ -1,3 +1,8 @@
+2004-09-22  Jerry James  <james@xemacs.org>
+
+	* itimer.el (set-itimer-name): Do not uniquify names, as requested
+	by Kyle Jones.
+
 2004-09-19  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* code-init.el: Add to header comment.
diff -r 513db903b41a -r 0da64f4bd0bc lisp/itimer.el
--- a/lisp/itimer.el	Wed Sep 22 21:54:47 2004 +0000
+++ b/lisp/itimer.el	Wed Sep 22 22:14:51 2004 +0000
@@ -222,15 +222,12 @@
 
 (defun set-itimer-name (itimer name)
   "Set the name of ITIMER to be NAME.
-NAME is an identifier for the itimer.  It must be a string.  If an itimer
-already exists with this name, NAME will be modified slightly to make it
-unique."
+NAME is an identifier for the itimer.  It must be a string.  If an active
+itimer already exists with this name, an error is signaled."
   (check-string name)
-  (let ((oname name)
-	(num 2))
-    (while (get-itimer name)
-      (setq name (format "%s<%d>" oname num))
-      (itimer-increment num)))
+  (and (itimer-live-p itimer)
+       (get-itimer name)
+       (error "itimer named \"%s\" already existing and activated" name))
   (setcar itimer name))
 
 (defun set-itimer-value (itimer value)