* net/dbus.el (dbus-call-method): Let-bind `inhibit-redisplay'

when reading the events; the buffer layout shall not be changed.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1163711a878..05360ad63da 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-05-27  Michael Albinus  <michael.albinus@gmx.de>
+
+        * net/dbus.el (dbus-call-method): Let-bind `inhibit-redisplay'
+        when reading the events; the buffer layout shall not be changed.
+
 2013-05-27  Leo Liu  <sdl.web@gmail.com>
 
         * progmodes/octave.el (inferior-octave-directory-tracker-resync):
diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el
index cf2cd0f311b..94a906122fe 100644
--- a/lisp/net/dbus.el
+++ b/lisp/net/dbus.el
@@ -270,7 +270,8 @@ object is returned instead of a list containing this single Lisp object.
     ;; default 25".  Events which are not from D-Bus must be restored.
     (with-timeout ((if timeout (/ timeout 1000.0) 25))
       (while (eq (gethash key dbus-return-values-table :ignore) :ignore)
-        (let ((event (let (unread-command-events) (read-event nil nil 0.1))))
+        (let ((event (let ((inhibit-redisplay t) unread-command-events)
+                       (read-event nil nil 0.1))))
           (when (and event (not (ignore-errors (dbus-check-event event))))
             (setq unread-command-events
                   (append unread-command-events (list event)))))))