Commit 2a77e3e2 authored by Daniel Colascione's avatar Daniel Colascione
Browse files

Fix last dbus change

parent c6463340
......@@ -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))))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment