From 0ecc99998a7c1c0e7063b4df5713ce660c6db110 Mon Sep 17 00:00:00 2001 From: Steven Tamm Date: Thu, 8 Jul 2004 15:24:54 +0000 Subject: [PATCH] term/mac-win.el (mac-scroll-ignore-events, mac-scroll-down) (mac-scroll-down-line, mac-scroll-up, mac-scroll-up-line): Do not treat double clicks and triple clicks specially in the scroll bar (preventing strange repositioning problems) --- lisp/ChangeLog | 7 +++++++ lisp/term/mac-win.el | 13 +++++++++---- 2 files changed, 16 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 32abe4c4ae7..b36e1bae10c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2004-07-08 Steven Tamm + + * term/mac-win.el (mac-scroll-ignore-events, mac-scroll-down) + (mac-scroll-down-line, mac-scroll-up, mac-scroll-up-line): + Do not treat double clicks and triple clicks specially in the + scroll bar (preventing strange repositioning problems) + 2004-07-06 Stefan * replace.el (query-replace-regexp-eval): Fix last change. diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index 9a61a8057b4..e42c2151701 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el @@ -68,24 +68,29 @@ (goto-char (window-start window)) (mac-scroll-up-line))))) +(defun mac-scroll-ignore-events () + ;; Ignore confusing non-mouse events + (while (not (memq (car-safe (read-event)) + '(mouse-1 double-mouse-1 triple-mouse-1))) nil)) + (defun mac-scroll-down () (track-mouse - (while (not (eq (car-safe (read-event)) 'mouse-1)) nil) + (mac-scroll-ignore-events) (scroll-down))) (defun mac-scroll-down-line () (track-mouse - (while (not (eq (car-safe (read-event)) 'mouse-1)) nil) + (mac-scroll-ignore-events) (scroll-down 1))) (defun mac-scroll-up () (track-mouse - (while (not (eq (car-safe (read-event)) 'mouse-1)) nil) + (mac-scroll-ignore-events) (scroll-up))) (defun mac-scroll-up-line () (track-mouse - (while (not (eq (car-safe (read-event)) 'mouse-1)) nil) + (mac-scroll-ignore-events) (scroll-up 1))) (defun xw-defined-colors (&optional frame) -- 2.39.2