diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2013-05-27 14:41:17 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2013-05-27 14:41:17 +0200 |
| commit | dde84790b7308d745d1cf635e1dc43c834d1b7bf (patch) | |
| tree | 9ea90bd487cee6db9822650fdc0d396cbee0e312 | |
| parent | c31effdbdc7af05ca079cb2596590e0177fa74cb (diff) | |
| download | emacs-dde84790b7308d745d1cf635e1dc43c834d1b7bf.tar.gz | |
* net/dbus.el (dbus-call-method): Let-bind `inhibit-redisplay'
when reading the events; the buffer layout shall not be changed.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/net/dbus.el | 3 |
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))))))) |