From: ueno <ueno>
Date: Fri, 4 Feb 2005 02:58:11 +0000 (+0000)
Subject: * riece-xemacs.el (riece-run-at-time): Accept nil as the current-time.
X-Git-Tag: riece-1_0_7~49
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=aee8eefefad7d3c9429c87014c5a8cb5753ffad0;p=elisp%2Friece.git

* riece-xemacs.el (riece-run-at-time): Accept nil as the current-time.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1ef82a7..fee5cbb 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2005-02-04  Daiki Ueno  <ueno@unixuser.org>
 
+	* riece-xemacs.el (riece-run-at-time): Accept nil as the current-time.
+
 	* riece-compat.el (riece-read-passwd): Changed default value.
 
 	* riece-400.el (riece-handle-475-message): Don't bind inhibit-quit
diff --git a/lisp/riece-xemacs.el b/lisp/riece-xemacs.el
index 70735ac..5df81ba 100644
--- a/lisp/riece-xemacs.el
+++ b/lisp/riece-xemacs.el
@@ -100,7 +100,7 @@
      name
      `(lambda ()
 	(,function ,@args))
-     time repeat)
+     (or time (current-time)) repeat)
     name))
 
 (defun riece-run-with-idle-timer (time repeat function &rest args)