Re: trunk r116456: Improve dbus performance on synchronous calls

[Michael Albinus]

Daniel Colascione <address@hidden> writes:

>      (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)
> -                    (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)))))))
> +        (let ((event (let ((inhibit-redisplay t) unread-command-events)
> +                    (read-event nil nil check-interval))))
> +          (when event
> +            (push event unread-command-events))
> +          (when (< check-interval 1)
> +            (setf check-interval (* check-interval 1.05))))))

Why `push'? It adds the event on top of `unread-command-events',
changing the event order when there are already events in that list.

Best regards, Michael.