From: yamaoka <yamaoka>
Date: Wed, 7 Jan 2004 02:31:25 +0000 (+0000)
Subject: Synch to No Gnus 200401070217.
X-Git-Tag: t-gnus-6_17_4-quimby-~1160
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=16d9d01fe69570245d7d1c51b136fdfc561969e1;p=elisp%2Fgnus.git-

Synch to No Gnus 200401070217.
---

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  <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
--- 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