From: Paul Eggert <eggert@cs.ucla.edu>
Date: Sat, 7 Mar 2020 17:47:03 +0000 (-0800)
Subject: Fix bug with JIT stealth timers
X-Git-Tag: emacs-27.0.91~97
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=363d927086;p=emacs.git

Fix bug with JIT stealth timers

* lisp/emacs-lisp/timer.el (run-at-time): Don’t assume that Lisp
time values must be conses (Bug#39944).
---

diff --git a/lisp/emacs-lisp/timer.el b/lisp/emacs-lisp/timer.el
index 74a94957e73..9eb8feed0f1 100644
--- a/lisp/emacs-lisp/timer.el
+++ b/lisp/emacs-lisp/timer.el
@@ -378,7 +378,7 @@ This function returns a timer object which you can use in
                                  (decoded-time-year now)
                                  (decoded-time-zone now)))))))
 
-  (or (consp time)
+  (or (time-equal-p time time)
       (error "Invalid time format"))
 
   (let ((timer (timer-create)))