procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
when reading the events; the buffer layout shall not be changed.
This commit is contained in:
Michael Albinus 2013-05-27 14:41:17 +02:00
parent c31effdbdc
commit dde84790b7
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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):

3
lisp/net/dbus.el
View file

@ -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)))))))