Mercurial > emacs
changeset 56373:493a379b41a6
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)
| author | Steven Tamm <steventamm@mac.com> |
|---|---|
| date | Thu, 08 Jul 2004 15:24:54 +0000 |
| parents | 500beada7df6 |
| children | e784f4b6c134 |
| files | lisp/ChangeLog lisp/term/mac-win.el |
| diffstat | 2 files changed, 16 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)