Commit 2c7bf3ce authored by Michael Albinus's avatar Michael Albinus
Browse files

Fix a regression bug in D-Bus event handling.

* net/dbus.el (dbus-call-method): Push only non D-Bus events into
parent e4cff260
2014-06-15 Michael Albinus <>
* net/dbus.el (dbus-call-method): Push only non D-Bus events into
2014-06-14 Glenn Morris <>
* progmodes/cc-langs.el: Require cl-lib. (Bug#17463)
......@@ -319,9 +319,11 @@ 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
(if (ignore-errors (dbus-check-event event))
(setf result (gethash key dbus-return-values-table))
(setf unread-command-events
(nconc unread-command-events
(cons event nil))))
(cons event nil)))))
(when (< check-interval 1)
(setf check-interval (* check-interval 1.05))))))
(when (eq (car result) :error)
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