Mercurial > hg > xemacs-beta

comparison lisp/itimer.el @ 286:57709be46d1b r21-0b41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b41
author cvs
date Mon, 13 Aug 2007 10:35:03 +0200
parents c5d627a313b1
children 8e84bee8ddd0
comparison
equal deleted inserted replaced
285:9a3756523c1b 286:57709be46d1b
355 (if restart (check-nonnegative-number restart)) 355 (if restart (check-nonnegative-number restart))
356 ;; Make proposed itimer name unique if it's not already. 356 ;; Make proposed itimer name unique if it's not already.
357 (let ((oname name) 357 (let ((oname name)
358 (num 2)) 358 (num 2))
359 (while (get-itimer name) 359 (while (get-itimer name)
360 (setq name (concat oname "<" num ">")) 360 (setq name (format "%s<%d>" oname num))
361 (itimer-increment num))) 361 (itimer-increment num)))
362 (activate-itimer (list name value restart function is-idle 362 (activate-itimer (list name value restart function is-idle
363 with-args function-arguments (list 0 0 0))) 363 with-args function-arguments (list 0 0 0)))
364 (car itimer-list)) 364 (car itimer-list))
365 365
393 (if (not (stringp (car itimer))) 393 (if (not (stringp (car itimer)))
394 (let ((name "itimer-0") 394 (let ((name "itimer-0")
395 (oname "itimer-") 395 (oname "itimer-")
396 (num 1)) 396 (num 1))
397 (while (get-itimer name) 397 (while (get-itimer name)
398 (setq name (concat oname "<" num ">")) 398 (setq name (format "%s<%d>" oname num))
399 (itimer-increment num)) 399 (itimer-increment num))
400 (setcar itimer name)) 400 (setcar itimer name))
401 ;; signal an error if the timer's name matches an already 401 ;; signal an error if the timer's name matches an already
402 ;; activated timer. 402 ;; activated timer.
403 (if (get-itimer (itimer-name itimer)) 403 (if (get-itimer (itimer-name itimer))