emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/mwheel.el


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/mwheel.el
Date: Fri, 04 Apr 2003 01:22:41 -0500

Index: emacs/lisp/mwheel.el
diff -c emacs/lisp/mwheel.el:1.24 emacs/lisp/mwheel.el:1.25
*** emacs/lisp/mwheel.el:1.24   Tue Feb  4 06:49:11 2003
--- emacs/lisp/mwheel.el        Wed Feb  5 18:12:01 2003
***************
*** 53,60 ****
      (set-default var button)
      (when active (mouse-wheel-mode 1))))
  
! (defvar mouse-wheel-down-button 4
!   "Obsolete.  Use `mouse-wheel-down-event'.")
  (defcustom mouse-wheel-down-event
    ;; In the latest versions of XEmacs, we could just use mouse-%s as well.
    (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
--- 53,61 ----
      (set-default var button)
      (when active (mouse-wheel-mode 1))))
  
! (defvar mouse-wheel-down-button 4)
! (make-obsolete-variable 'mouse-wheel-down-button
!                         'mouse-wheel-down-event)
  (defcustom mouse-wheel-down-event
    ;; In the latest versions of XEmacs, we could just use mouse-%s as well.
    (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
***************
*** 64,71 ****
    :type 'symbol
    :set 'mouse-wheel-change-button)
  
! (defvar mouse-wheel-up-button 5
!   "Obsolete.  Use `mouse-wheel-up-event'.")
  (defcustom mouse-wheel-up-event
    ;; In the latest versions of XEmacs, we could just use mouse-%s as well.
    (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
--- 65,73 ----
    :type 'symbol
    :set 'mouse-wheel-change-button)
  
! (defvar mouse-wheel-up-button 5)
! (make-obsolete-variable 'mouse-wheel-up-button
!                         'mouse-wheel-up-event)
  (defcustom mouse-wheel-up-event
    ;; In the latest versions of XEmacs, we could just use mouse-%s as well.
    (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
***************
*** 75,82 ****
    :type 'symbol
    :set 'mouse-wheel-change-button)
  
! (defvar mouse-wheel-click-button 2
!   "Obsolete.  Use `mouse-wheel-click-event'.")
  (defcustom mouse-wheel-click-event
    ;; In the latest versions of XEmacs, we could just use mouse-%s as well.
    (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
--- 77,85 ----
    :type 'symbol
    :set 'mouse-wheel-change-button)
  
! (defvar mouse-wheel-click-button 2)
! (make-obsolete-variable 'mouse-wheel-click-button
!                         'mouse-wheel-click-event)
  (defcustom mouse-wheel-click-event
    ;; In the latest versions of XEmacs, we could just use mouse-%s as well.
    (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")




reply via email to

[Prev in Thread] Current Thread [Next in Thread]