/[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.28 by jasonr, Sun Jun 1 22:13:30 2003 UTC revision 1.29 by jasonr, Wed Jun 4 21:53:00 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    (if (eq system-type 'windows-nt)    (if (memq system-type '(windows-nt macos))
62        'wheel-up        'wheel-up
63      (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")      (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
64                      mouse-wheel-down-button)))                      mouse-wheel-down-button)))
# Line 72  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    (if (eq system-type 'windows-nt)    (if (memq system-type '(windows-nt macos))
76        'wheel-down        'wheel-down
77      (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")      (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
78                      mouse-wheel-up-button)))                      mouse-wheel-up-button)))

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

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