From 16d9d01fe69570245d7d1c51b136fdfc561969e1 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Wed, 7 Jan 2004 02:31:25 +0000 Subject: [PATCH] Synch to No Gnus 200401070217. --- lisp/ChangeLog | 5 +++++ lisp/run-at-time.el | 11 +++++------ 2 files changed, 10 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dcd65ea..5ef8b55 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-01-07 Katsumi Yamaoka + + * run-at-time.el (run-at-time-saved): Remove. + (run-at-time): Doc fix. + 2004-01-07 Jesper Harder * gnus-sum.el (gnus-summary-limit-to-replied): New command. diff --git a/lisp/run-at-time.el b/lisp/run-at-time.el index 0b41938..a4f54fe 100644 --- a/lisp/run-at-time.el +++ b/lisp/run-at-time.el @@ -46,22 +46,23 @@ ctime (setcar ctime (1- (car ctime))))) (itimer-list nil) - (itimer (start-itimer "fixed-run-at-time" 'ignore 5))) + (itimer (start-itimer "run-at-time" 'ignore 5))) (sleep-for 0.1) ;; Accept the timeout interrupt. (prog1 (> (itimer-value itimer) 0) (delete-itimer itimer)))) (error nil)) (lambda (time repeat function &rest args) - "Emulating function run as `run-at-time'. + "Function emulating the function of the same name of Emacs. TIME should be nil meaning now, or a number of seconds from now. Return an itimer object which can be used in either `delete-itimer' or `cancel-timer'." - (apply #'start-itimer "fixed-run-at-time" + (apply #'start-itimer "run-at-time" function (if time (max time 1e-9) 1e-9) repeat nil t args)) (lambda (time repeat function &rest args) - "Emulating function run as `run-at-time' in the right way. + "Function emulating the function of the same name of Emacs. +It works correctly for TIME even if there is a bug in the XEmacs core. TIME should be nil meaning now, or a number of seconds from now. Return an itimer object which can be used in either `delete-itimer' or `cancel-timer'." @@ -94,8 +95,6 @@ or `cancel-timer'." 1e-9 (if time (max time 1e-9) 1e-9) nil t itimers repeat function args)))))))) -(defvar run-at-time-saved (symbol-function 'run-at-time)) - (provide 'run-at-time) ;;; run-at-time.el ends here -- 1.7.10.4