Mercurial > hg > xemacs-beta

comparison lisp/itimer.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents cc15677e0335
children 74fd4e045ea6
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
715 (let* ((current-itimer itimer) 715 (let* ((current-itimer itimer)
716 (quit-flag nil) 716 (quit-flag nil)
717 (inhibit-quit nil) 717 (inhibit-quit nil)
718 ;; for FSF Emacs timer.el emulation under XEmacs. 718 ;; for FSF Emacs timer.el emulation under XEmacs.
719 ;; eldoc expect this to be done, apparently. 719 ;; eldoc expect this to be done, apparently.
720 (this-command nil) 720 (this-command nil))
721 itimer itimers time-elapsed)
722 (if (itimer-uses-arguments current-itimer) 721 (if (itimer-uses-arguments current-itimer)
723 (apply (itimer-function current-itimer) 722 (apply (itimer-function current-itimer)
724 (itimer-function-arguments current-itimer)) 723 (itimer-function-arguments current-itimer))
725 (funcall (itimer-function current-itimer))))) 724 (funcall (itimer-function current-itimer)))))
726 (error (message "itimer \"%s\" signaled: %s" (itimer-name itimer) 725 (error (message "itimer \"%s\" signaled: %s" (itimer-name itimer)