/[emacs]/emacs/lisp/mwheel.el
ViewVC logotype

Diff of /emacs/lisp/mwheel.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.27 by gm, Tue May 27 23:09:40 2003 UTC revision 1.28 by jasonr, Sun Jun 1 22:13:30 2003 UTC
# Line 58  Line 58 
58                          'mouse-wheel-down-event)                          'mouse-wheel-down-event)
59  (defcustom mouse-wheel-down-event  (defcustom mouse-wheel-down-event
60    ;; In the latest versions of XEmacs, we could just use mouse-%s as well.    ;; In the latest versions of XEmacs, we could just use mouse-%s as well.
61    (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")    (if (eq system-type 'windows-nt)
62                    mouse-wheel-down-button))        'wheel-up
63        (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
64                        mouse-wheel-down-button)))
65    "Event used for scrolling down."    "Event used for scrolling down."
66    :group 'mouse    :group 'mouse
67    :type 'symbol    :type 'symbol
# Line 70  Line 72 
72                          'mouse-wheel-up-event)                          'mouse-wheel-up-event)
73  (defcustom mouse-wheel-up-event  (defcustom mouse-wheel-up-event
74    ;; In the latest versions of XEmacs, we could just use mouse-%s as well.    ;; In the latest versions of XEmacs, we could just use mouse-%s as well.
75    (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")    (if (eq system-type 'windows-nt)
76                    mouse-wheel-up-button))        'wheel-down
77        (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
78                        mouse-wheel-up-button)))
79    "Event used for scrolling down."    "Event used for scrolling down."
80    :group 'mouse    :group 'mouse
81    :type 'symbol    :type 'symbol

Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26