Commit 0ecc9999 authored by Steven Tamm's avatar 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)
parent cb4f1287
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.
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment