From: Juanma Barranquero <lekktu@gmail.com>
Date: Wed, 5 Feb 2003 23:12:01 +0000 (+0000)
Subject: (mouse-wheel-down-button, mouse-wheel-up-button, mouse-wheel-click-button): Add
X-Git-Tag: ttn-vms-21-2-B4~11333
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e5ab6ade1356d68bd047c10786ad873fd1b69e2a;p=emacs.git

(mouse-wheel-down-button, mouse-wheel-up-button, mouse-wheel-click-button): Add
obsolescence declaration and remove redundant info from docstring.
---

diff --git a/lisp/mwheel.el b/lisp/mwheel.el
index 97bed138b84..44ea214d334 100644
--- a/lisp/mwheel.el
+++ b/lisp/mwheel.el
@@ -53,8 +53,9 @@
     (set-default var button)
     (when active (mouse-wheel-mode 1))))
 
-(defvar mouse-wheel-down-button 4
-  "Obsolete.  Use `mouse-wheel-down-event'.")
+(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,8 +65,9 @@
   :type 'symbol
   :set 'mouse-wheel-change-button)
 
-(defvar mouse-wheel-up-button 5
-  "Obsolete.  Use `mouse-wheel-up-event'.")
+(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,8 +77,9 @@
   :type 'symbol
   :set 'mouse-wheel-change-button)
 
-(defvar mouse-wheel-click-button 2
-  "Obsolete.  Use `mouse-wheel-click-event'.")
+(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")