# HG changeset patch # User Stefan Monnier # Date 1252782264 0 # Node ID 3727134fef6c0703ca01572361c9dd2738391c72 # Parent 00c7c0e3f902a97848959643540f51a288bbd2d3 * term/x-win.el (x-initialize-window-system): * term/w32-win.el (w32-initialize-window-system): * term/ns-win.el (ns-initialize-window-system): Don't call mouse-wheel-mode since it's enabled globally by default already. diff -r 00c7c0e3f902 -r 3727134fef6c lisp/ChangeLog --- a/lisp/ChangeLog Sat Sep 12 19:03:49 2009 +0000 +++ b/lisp/ChangeLog Sat Sep 12 19:04:24 2009 +0000 @@ -1,5 +1,10 @@ 2009-09-12 Stefan Monnier + * term/x-win.el (x-initialize-window-system): + * term/w32-win.el (w32-initialize-window-system): + * term/ns-win.el (ns-initialize-window-system): Don't call + mouse-wheel-mode since it's enabled globally by default already. + * mwheel.el (mouse-wheel-mode): Make sure the new defvar doesn't actually define the variable, but only silences the byte-compiler. (mouse-wheel-change-button): Check whether mouse-wheel-mode is bound diff -r 00c7c0e3f902 -r 3727134fef6c lisp/term/ns-win.el --- a/lisp/term/ns-win.el Sat Sep 12 19:03:49 2009 +0000 +++ b/lisp/term/ns-win.el Sat Sep 12 19:04:24 2009 +0000 @@ -1253,7 +1253,6 @@ ;; FIXME: This will surely lead to "MODIFIED OUTSIDE CUSTOM" warnings. (menu-bar-mode (if (get-lisp-resource nil "Menus") 1 -1)) - (mouse-wheel-mode 1) (setq ns-initialized t)) diff -r 00c7c0e3f902 -r 3727134fef6c lisp/term/w32-win.el --- a/lisp/term/w32-win.el Sat Sep 12 19:03:49 2009 +0000 +++ b/lisp/term/w32-win.el Sat Sep 12 19:04:24 2009 +0000 @@ -305,9 +305,6 @@ ;; that this is only annoying. (setq split-window-keep-point t) - ;; Turn on support for mouse wheels - (mouse-wheel-mode 1) - ;; W32 expects the menu bar cut and paste commands to use the clipboard. (menu-bar-enable-clipboard) diff -r 00c7c0e3f902 -r 3727134fef6c lisp/term/x-win.el --- a/lisp/term/x-win.el Sat Sep 12 19:03:49 2009 +0000 +++ b/lisp/term/x-win.el Sat Sep 12 19:04:24 2009 +0000 @@ -1573,9 +1573,6 @@ ;; (if (featurep 'motif) ;; (global-set-key [f10] 'ignore)) - ;; Turn on support for mouse wheels. - (mouse-wheel-mode 1) - ;; Enable CLIPBOARD copy/paste through menu bar commands. (menu-bar-enable-clipboard)