]> code.delx.au - gnu-emacs/blobdiff - lisp/mwheel.el
* tutorial.el (help-with-tutorial): Don't use text mode, since the
[gnu-emacs] / lisp / mwheel.el
index e51b2d9dc78d5d1aaf848e96039ea2c0825967bc..6444ba401d64cc6e78d660c8cf5febc74401384f 100644 (file)
@@ -1,7 +1,7 @@
 ;;; mwheel.el --- Wheel mouse support
 
 ;; Copyright (C) 1998, 2000, 2001, 2002, 2002, 2004, 2005, 2006, 2007,
-;;   2008  Free Software Foundation, Inc.
+;;   2008, 2009  Free Software Foundation, Inc.
 ;; Maintainer: William M. Perry <wmperry@gnu.org>
 ;; Keywords: mouse
 
@@ -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 ns))
+  (if (memq window-system '(w32 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 ns))
+  (if (memq window-system '(w32 ns))
       'wheel-down
     (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
                    mouse-wheel-up-button)))