Synch to No Gnus 200401070217.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dcd65ea..5ef8b55 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2004-01-07  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * run-at-time.el (run-at-time-saved): Remove.
+       (run-at-time): Doc fix.
+
 2004-01-07  Jesper Harder  <harder@ifa.au.dk>
 
        * 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 (file)
--- 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