Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
2291:4e852279de88 2292:9eeed79aee25
367 ;; hard to imagine the user specifying these interactively 367 ;; hard to imagine the user specifying these interactively
368 nil 368 nil
369 nil )) 369 nil ))
370 (check-nonnegative-number value) 370 (check-nonnegative-number value)
371 (if restart (check-nonnegative-number restart)) 371 (if restart (check-nonnegative-number restart))
372 ;; Make proposed itimer name unique if it's not already. 372 (let ((itimer (list name value restart function is-idle
373 (set-itimer-name name) 373 with-args function-arguments (list 0 0 0))))
374 (activate-itimer (list name value restart function is-idle 374 ;; Make proposed itimer name unique if it's not already.
375 with-args function-arguments (list 0 0 0))) 375 (set-itimer-name itimer name)
376 (activate-itimer itimer))
376 (car itimer-list)) 377 (car itimer-list))
377 378
378 (defun make-itimer () 379 (defun make-itimer ()
379 "Create an unactivated itimer. 380 "Create an unactivated itimer.
380 The itimer will not begin running until activated with `activate-itimer'. 381 The itimer will not begin running until activated with `activate-itimer'.