diff options
author | Juanma Barranquero <lekktu@gmail.com> | 2003-02-05 23:12:01 +0000 |
---|---|---|
committer | Juanma Barranquero <lekktu@gmail.com> | 2003-02-05 23:12:01 +0000 |
commit | 168419cf1fc942484675fa261cea89485eefe270 (patch) | |
tree | 8c4e522f3ca7173b5f8aa5e34f9ed05b137acf25 /lisp/mwheel.el | |
parent | 3ef64e09d56fd2925441f379d172e4d5267c7bb6 (diff) | |
download | emacs-168419cf1fc942484675fa261cea89485eefe270.tar.gz |
(mouse-wheel-down-button, mouse-wheel-up-button, mouse-wheel-click-button): Add
obsolescence declaration and remove redundant info from docstring.
Diffstat (limited to 'lisp/mwheel.el')
-rw-r--r-- | lisp/mwheel.el | 15 |
1 files changed, 9 insertions, 6 deletions
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") |