From: Daniel Colascione <dancol@dancol.org>
Date: Mon, 17 Feb 2014 16:30:09 +0000 (-0800)
Subject: Fix last dbus change
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~36
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2a77e3e22282c105f53a17dcd73771bbe222a822;p=emacs.git

Fix last dbus change
---

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))))))