* 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 280b34c..5df81ba 100644 (file)
--- 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)
@@ -122,7 +122,7 @@
     (set-extent-properties extent properties)
     (cons extent string)))
 
-(defalias 'riece-normalize-modeline-indicator 'identity)
+(defalias 'riece-normalize-modeline-string 'identity)
 
 (defalias 'riece-facep 'find-face)