Mercurial > hg > xemacs-beta

diff lisp/itimer.el @ 2292:9eeed79aee25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-21 14:54:25 by james] Repair my messed up implementation of Martin's set-itimer-name idea.
author james
date Tue, 21 Sep 2004 14:54:32 +0000
parents 914c5afaac33
children 13a418960a88
line wrap: on
line diff
--- 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 ()