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

[riece] / lisp / riece-xemacs.el

diff --git a/lisp/riece-xemacs.el b/lisp/riece-xemacs.el
index 70735ac..5df81ba 100644 (file)
--- a/lisp/riece-xemacs.el
+++ b/lisp/riece-xemacs.el
@@ -100,7 +100,7 @@
      name
      `(lambda ()
        (,function ,@args))
      name
      `(lambda ()
        (,function ,@args))

-     time repeat)
+     (or time (current-time)) repeat)

     name))
 
 (defun riece-run-with-idle-timer (time repeat function &rest args)
     name))
 
 (defun riece-run-with-idle-timer (time repeat function &rest args)