Mercurial > hg > xemacs-beta
changeset 2303:0da64f4bd0bc
[xemacs-hg @ 2004-09-22 22:14:47 by james]
Do not uniquify names in set-itimer-name, as requested by Kyle.
| author | james |
|---|---|
| date | Wed, 22 Sep 2004 22:14:51 +0000 |
| parents | 513db903b41a |
| children | 7fc13d0eacd5 |
| files | lisp/ChangeLog lisp/itimer.el |
| diffstat | 2 files changed, 10 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)