Mercurial > hg > xemacs-beta
changeset 2292:9eeed79aee25
[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 | 4e852279de88 |
| children | fd11ab993173 |
| files | lisp/ChangeLog lisp/itimer.el |
| diffstat | 2 files changed, 9 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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 ()