Mercurial > emacs

diff lisp/mwheel.el @ 96675:d45acf0c8d23

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merging Emacs.app (NeXTstep port)
author Adrian Robert <Adrian.B.Robert@gmail.com>
date Tue, 15 Jul 2008 18:15:18 +0000
parents a99299e4d2de
children 9592c50233ab
line wrap: on
line diff
--- a/lisp/mwheel.el	Tue Jul 15 15:45:05 2008 +0000
+++ b/lisp/mwheel.el	Tue Jul 15 18:15:18 2008 +0000
@@ -58,7 +58,7 @@
 			"22.1")
 (defcustom mouse-wheel-down-event
   ;; In the latest versions of XEmacs, we could just use mouse-%s as well.
-  (if (memq window-system '(w32 mac))
+  (if (memq window-system '(w32 mac ns))
       'wheel-up
     (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
 		    mouse-wheel-down-button)))
@@ -73,7 +73,7 @@
 			"22.1")
 (defcustom mouse-wheel-up-event
   ;; In the latest versions of XEmacs, we could just use mouse-%s as well.
-  (if (memq window-system '(w32 mac))
+  (if (memq window-system '(w32 mac ns))
       'wheel-down
     (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
 		    mouse-wheel-up-button)))