/[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.24 by lektu, Tue Feb 4 11:49:11 2003 UTC revision 1.25 by lektu, Wed Feb 5 23:12:01 2003 UTC
# Line 53  Line 53 
53      (set-default var button)      (set-default var button)
54      (when active (mouse-wheel-mode 1))))      (when active (mouse-wheel-mode 1))))
55    
56  (defvar mouse-wheel-down-button 4  (defvar mouse-wheel-down-button 4)
57    "Obsolete.  Use `mouse-wheel-down-event'.")  (make-obsolete-variable 'mouse-wheel-down-button
58                            '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")    (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
# Line 64  Line 65 
65    :type 'symbol    :type 'symbol
66    :set 'mouse-wheel-change-button)    :set 'mouse-wheel-change-button)
67    
68  (defvar mouse-wheel-up-button 5  (defvar mouse-wheel-up-button 5)
69    "Obsolete.  Use `mouse-wheel-up-event'.")  (make-obsolete-variable 'mouse-wheel-up-button
70                            'mouse-wheel-up-event)
71  (defcustom mouse-wheel-up-event  (defcustom mouse-wheel-up-event
72    ;; 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.
73    (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")    (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
# Line 75  Line 77 
77    :type 'symbol    :type 'symbol
78    :set 'mouse-wheel-change-button)    :set 'mouse-wheel-change-button)
79    
80  (defvar mouse-wheel-click-button 2  (defvar mouse-wheel-click-button 2)
81    "Obsolete.  Use `mouse-wheel-click-event'.")  (make-obsolete-variable 'mouse-wheel-click-button
82                            'mouse-wheel-click-event)
83  (defcustom mouse-wheel-click-event  (defcustom mouse-wheel-click-event
84    ;; 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.
85    (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")    (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

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