Fix last dbus change

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el
index 6214505ad86..5c1296de1fa 100644
--- a/lisp/net/dbus.el
+++ b/lisp/net/dbus.el
@@ -283,7 +283,9 @@ object is returned instead of a list containing this single Lisp object.
         (let ((event (let ((inhibit-redisplay t) unread-command-events)
                        (read-event nil nil check-interval))))
           (when event
-            (push event unread-command-events))
+            (setf unread-command-events
+                  (nconc unread-command-events
+                         (cons event nil))))
           (when (< check-interval 1)
             (setf check-interval (* check-interval 1.05))))))