/[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.35 by ttn, Sat Aug 6 22:13:43 2005 UTC revision 1.36 by sds, Thu Nov 3 14:35:26 2005 UTC
# Line 59  Line 59 
59                          'mouse-wheel-down-event)                          'mouse-wheel-down-event)
60  (defcustom mouse-wheel-down-event  (defcustom mouse-wheel-down-event
61    ;; 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.
62    (if (memq window-system '(w32 mac))    (if (memq system-type '(windows-nt macos))
63        'wheel-up        'wheel-up
64      (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")      (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
65                      mouse-wheel-down-button)))                      mouse-wheel-down-button)))
# Line 73  Line 73 
73                          'mouse-wheel-up-event)                          'mouse-wheel-up-event)
74  (defcustom mouse-wheel-up-event  (defcustom mouse-wheel-up-event
75    ;; 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.
76    (if (memq window-system '(w32 mac))    (if (memq system-type '(windows-nt macos))
77        'wheel-down        'wheel-down
78      (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")      (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
79                      mouse-wheel-up-button)))                      mouse-wheel-up-button)))

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

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