/[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.17 by monnier, Thu Jun 27 21:45:42 2002 UTC revision 1.18 by jpw, Thu Aug 29 22:06:26 2002 UTC
# Line 64  Line 64 
64    :set 'mouse-wheel-change-button)    :set 'mouse-wheel-change-button)
65    
66  (defcustom mouse-wheel-up-button 5  (defcustom mouse-wheel-up-button 5
67    "Obsolete.  Use `mouse-whell-up-event'.")    "Obsolete.  Use `mouse-wheel-up-event'.")
68  (defcustom mouse-wheel-up-event  (defcustom mouse-wheel-up-event
69    ;; 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.
70    (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")    (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
# Line 133  This can be slightly disconcerting, but Line 133  This can be slightly disconcerting, but
133                    mouse-wheel-up-event                    mouse-wheel-up-event
134                  mouse-wheel-down-event))                  mouse-wheel-down-event))
135            x)))            x)))
136    (fset  'mwheel-event-button 'event-button))    (fset 'mwheel-event-button 'event-button))
137    
138  (if (not (fboundp 'event-window))  (if (not (fboundp 'event-window))
139      (defun mwheel-event-window (event)      (defun mwheel-event-window (event)

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

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