Mercurial > emacs
comparison lisp/gnus/gnus-demon.el @ 111855:c587007a09f2
gnus-demon.el (gnus-demon-init): Call run-with-timer with time as argument, not t. XEmacs does not support that.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Wed, 08 Dec 2010 22:16:36 +0000 |
| parents | 5e488dbb17f7 |
| children | 417b1e4d63cd |
comparison
equal
deleted
inserted
replaced
| 111854:1d5b34014445 | 111855:c587007a09f2 |
|---|---|
| 126 (timer | 126 (timer |
| 127 (cond | 127 (cond |
| 128 ;; (func number t) | 128 ;; (func number t) |
| 129 ;; Call when Emacs has been idle for `time' | 129 ;; Call when Emacs has been idle for `time' |
| 130 ((and (numberp time) (eq idle t)) | 130 ((and (numberp time) (eq idle t)) |
| 131 (run-with-timer t time 'gnus-demon-run-callback func time)) | 131 (run-with-timer time time 'gnus-demon-run-callback func time)) |
| 132 ;; (func number number) | 132 ;; (func number number) |
| 133 ;; Call every `time' when Emacs has been idle for `idle' | 133 ;; Call every `time' when Emacs has been idle for `idle' |
| 134 ((and (numberp time) (numberp idle)) | 134 ((and (numberp time) (numberp idle)) |
| 135 (run-with-timer t time 'gnus-demon-run-callback func idle)) | 135 (run-with-timer time time 'gnus-demon-run-callback func idle)) |
| 136 ;; (func nil number) | 136 ;; (func nil number) |
| 137 ;; Only call when Emacs has been idle for `idle' | 137 ;; Only call when Emacs has been idle for `idle' |
| 138 ((and (null time) (numberp idle)) | 138 ((and (null time) (numberp idle)) |
| 139 (run-with-idle-timer (* idle gnus-demon-timestep) t | 139 (run-with-idle-timer (* idle gnus-demon-timestep) t |
| 140 'gnus-demon-run-callback func)) | 140 'gnus-demon-run-callback func)) |