[Emacs-diffs] /srv/bzr/emacs/trunk r112741: * net/dbus.el (dbus-call-method): Let-bind `inhibit-redisplay'

[Michael Albinus]

------------------------------------------------------------
revno: 112741
committer: Michael Albinus <address@hidden>
branch nick: trunk
timestamp: Mon 2013-05-27 14:41:17 +0200
message:
  * net/dbus.el (dbus-call-method): Let-bind `inhibit-redisplay'
  when reading the events; the buffer layout shall not be changed.
modified:
  lisp/ChangeLog
  lisp/net/dbus.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-05-27 05:08:04 +0000
+++ b/lisp/ChangeLog    2013-05-27 12:41:17 +0000
@@ -1,3 +1,8 @@
+2013-05-27  Michael Albinus  <address@hidden>
+
+       * 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  <address@hidden>
 
        * progmodes/octave.el (inferior-octave-directory-tracker-resync):

=== modified file 'lisp/net/dbus.el'
--- a/lisp/net/dbus.el  2013-01-01 09:11:05 +0000
+++ b/lisp/net/dbus.el  2013-05-27 12:41:17 +0000
@@ -270,7 +270,8 @@
     ;; 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)))))))