Mercurial > emacs
changeset 27421:34b81c946198
(scroll-bar-timer): Variable removed.
(scroll-bar-toolkit-scroll): Don't use a timer.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Tue, 25 Jan 2000 15:44:52 +0000 |
| parents | c90af868be18 |
| children | 5c5bb4b1ff45 |
| files | lisp/scroll-bar.el |
| diffstat | 1 files changed, 1 insertions(+), 17 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/scroll-bar.el Tue Jan 25 03:26:27 2000 +0000 +++ b/lisp/scroll-bar.el Tue Jan 25 15:44:52 2000 +0000 @@ -286,26 +286,13 @@ ;;; Tookit scroll bars. -;; Due to its event handling, Emacs is currently not able to handle Xt -;; timeouts which toolkit scroll bars use to implement auto-repeat. -;; As a workaround, we start a timer whenever a scroll bar action -;; occurs, and remove it again when are notified that the user no -;; longer interacts with the scroll bar. The timer function gives Xt -;; the chance to call Xt timeout functions. - -(defvar scroll-bar-timer nil - "Timer running while scroll bar is active.") - (defun scroll-bar-toolkit-scroll (event) (interactive "e") (let* ((end-position (event-end event)) (window (nth 0 end-position)) (part (nth 4 end-position)) before-scroll) - (cond ((eq part 'end-scroll) - (when scroll-bar-timer - (cancel-timer scroll-bar-timer) - (setq scroll-bar-timer nil))) + (cond ((eq part 'end-scroll)) (t (with-current-buffer (window-buffer window) (setq before-scroll point-before-scroll)) @@ -335,9 +322,6 @@ ((eq part 'handle) (scroll-bar-drag-1 event)))) (sit-for 0) - (unless scroll-bar-timer - (setq scroll-bar-timer - (run-with-timer 0.1 0.1 'xt-process-timeouts))) (with-current-buffer (window-buffer window) (setq point-before-scroll before-scroll))))))