# HG changeset patch
# User Steven Tamm <steventamm@mac.com>
# Date 1089300294 0
# Node ID 493a379b41a60cba01540ad4c65e35bb9da125ff
# Parent  500beada7df6ad28713784af044fa60f6a639f7f
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)

diff -r 500beada7df6 -r 493a379b41a6 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Jul 07 22:43:05 2004 +0000
+++ b/lisp/ChangeLog	Thu Jul 08 15:24:54 2004 +0000
@@ -1,3 +1,10 @@
+2004-07-08  Steven Tamm  <steventamm@mac.com>
+
+	* 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  <monnier@iro.umontreal.ca>
 
 	* replace.el (query-replace-regexp-eval): Fix last change.
diff -r 500beada7df6 -r 493a379b41a6 lisp/term/mac-win.el
--- a/lisp/term/mac-win.el	Wed Jul 07 22:43:05 2004 +0000
+++ b/lisp/term/mac-win.el	Thu Jul 08 15:24:54 2004 +0000
@@ -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)