[Emacs-diffs] Changes to emacs/lisp/mwheel.el

[Jason Rumney]

Index: emacs/lisp/mwheel.el
diff -c emacs/lisp/mwheel.el:1.27 emacs/lisp/mwheel.el:1.28
*** emacs/lisp/mwheel.el:1.27   Tue May 27 19:09:40 2003
--- emacs/lisp/mwheel.el        Sun Jun  1 18:13:30 2003
***************
*** 58,65 ****
                          'mouse-wheel-down-event)
  (defcustom mouse-wheel-down-event
    ;; In the latest versions of XEmacs, we could just use mouse-%s as well.
!   (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
!                 mouse-wheel-down-button))
    "Event used for scrolling down."
    :group 'mouse
    :type 'symbol
--- 58,67 ----
                          'mouse-wheel-down-event)
  (defcustom mouse-wheel-down-event
    ;; In the latest versions of XEmacs, we could just use mouse-%s as well.
!   (if (eq system-type 'windows-nt)
!       'wheel-up
!     (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
!                   mouse-wheel-down-button)))
    "Event used for scrolling down."
    :group 'mouse
    :type 'symbol
***************
*** 70,77 ****
                          'mouse-wheel-up-event)
  (defcustom mouse-wheel-up-event
    ;; In the latest versions of XEmacs, we could just use mouse-%s as well.
!   (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
!                 mouse-wheel-up-button))
    "Event used for scrolling down."
    :group 'mouse
    :type 'symbol
--- 72,81 ----
                          'mouse-wheel-up-event)
  (defcustom mouse-wheel-up-event
    ;; In the latest versions of XEmacs, we could just use mouse-%s as well.
!   (if (eq system-type 'windows-nt)
!       'wheel-down
!     (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
!                   mouse-wheel-up-button)))
    "Event used for scrolling down."
    :group 'mouse
    :type 'symbol