Mercurial > hg > xemacs-beta

comparison lisp/itimer.el @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents 576fb035e263
children 023b83f4e54b
comparison
equal deleted inserted replaced
445:34f3776fcf0e 446:1ccc32a20af4
165 (and (consp object) (eq (length object) 8))) 165 (and (consp object) (eq (length object) 8)))
166 166
167 (defun itimer-live-p (object) 167 (defun itimer-live-p (object)
168 "Return non-nil if OBJECT is an itimer and is active. 168 "Return non-nil if OBJECT is an itimer and is active.
169 ``Active'' means Emacs will run it when it expires. 169 ``Active'' means Emacs will run it when it expires.
170 `activate-timer' must be called on an itimer to make it active. 170 `activate-itimer' must be called on an itimer to make it active.
171 Itimers started with `start-itimer' are automatically active." 171 Itimers started with `start-itimer' are automatically active."
172 (and (itimerp object) (memq object itimer-list))) 172 (and (itimerp object) (memq object itimer-list)))
173 173
174 (defun itimer-name (itimer) 174 (defun itimer-name (itimer)
175 "Return the name of ITIMER." 175 "Return the name of ITIMER."