From: Michael Albinus <michael.albinus@gmx.de>
Date: Tue, 28 May 2013 06:49:19 +0000 (+0200)
Subject: Add comment for last change.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~162
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ec518f1a35960b9e850373938a251e0a7056ef49;p=emacs.git

Add comment for last change.
---

diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el
index 94a906122fe..0e9c4fc5c76 100644
--- a/lisp/net/dbus.el
+++ b/lisp/net/dbus.el
@@ -268,6 +268,8 @@ object is returned instead of a list containing this single Lisp object.
     ;; Wait until `dbus-call-method-handler' has put the result into
     ;; `dbus-return-values-table'.  If no timeout is given, use the
     ;; default 25".  Events which are not from D-Bus must be restored.
+    ;; `read-event' performs a redisplay.  This must be suppressed; it
+    ;; hurts when reading D-Bus events asynchronously.
     (with-timeout ((if timeout (/ timeout 1000.0) 25))
       (while (eq (gethash key dbus-return-values-table :ignore) :ignore)
 	(let ((event (let ((inhibit-redisplay t) unread-command-events)