diff options
| author | Juanma Barranquero | 2003-02-05 23:12:01 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2003-02-05 23:12:01 +0000 |
| commit | e5ab6ade1356d68bd047c10786ad873fd1b69e2a (patch) | |
| tree | de90ad4b02e2efba0b6d41d966713ab95b853dbd | |
| parent | a664185bacc254fa1f0eee3079d48d3e89fef1f5 (diff) | |
| download | emacs-e5ab6ade1356d68bd047c10786ad873fd1b69e2a.tar.gz emacs-e5ab6ade1356d68bd047c10786ad873fd1b69e2a.zip | |
(mouse-wheel-down-button, mouse-wheel-up-button, mouse-wheel-click-button): Add
obsolescence declaration and remove redundant info from docstring.
| -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 @@ | |||
| 53 | (set-default var button) | 53 | (set-default var button) |
| 54 | (when active (mouse-wheel-mode 1)))) | 54 | (when active (mouse-wheel-mode 1)))) |
| 55 | 55 | ||
| 56 | (defvar mouse-wheel-down-button 4 | 56 | (defvar mouse-wheel-down-button 4) |
| 57 | "Obsolete. Use `mouse-wheel-down-event'.") | 57 | (make-obsolete-variable 'mouse-wheel-down-button |
| 58 | 'mouse-wheel-down-event) | ||
| 58 | (defcustom mouse-wheel-down-event | 59 | (defcustom mouse-wheel-down-event |
| 59 | ;; In the latest versions of XEmacs, we could just use mouse-%s as well. | 60 | ;; In the latest versions of XEmacs, we could just use mouse-%s as well. |
| 60 | (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") | 61 | (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") |
| @@ -64,8 +65,9 @@ | |||
| 64 | :type 'symbol | 65 | :type 'symbol |
| 65 | :set 'mouse-wheel-change-button) | 66 | :set 'mouse-wheel-change-button) |
| 66 | 67 | ||
| 67 | (defvar mouse-wheel-up-button 5 | 68 | (defvar mouse-wheel-up-button 5) |
| 68 | "Obsolete. Use `mouse-wheel-up-event'.") | 69 | (make-obsolete-variable 'mouse-wheel-up-button |
| 70 | 'mouse-wheel-up-event) | ||
| 69 | (defcustom mouse-wheel-up-event | 71 | (defcustom mouse-wheel-up-event |
| 70 | ;; In the latest versions of XEmacs, we could just use mouse-%s as well. | 72 | ;; In the latest versions of XEmacs, we could just use mouse-%s as well. |
| 71 | (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") | 73 | (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") |
| @@ -75,8 +77,9 @@ | |||
| 75 | :type 'symbol | 77 | :type 'symbol |
| 76 | :set 'mouse-wheel-change-button) | 78 | :set 'mouse-wheel-change-button) |
| 77 | 79 | ||
| 78 | (defvar mouse-wheel-click-button 2 | 80 | (defvar mouse-wheel-click-button 2) |
| 79 | "Obsolete. Use `mouse-wheel-click-event'.") | 81 | (make-obsolete-variable 'mouse-wheel-click-button |
| 82 | 'mouse-wheel-click-event) | ||
| 80 | (defcustom mouse-wheel-click-event | 83 | (defcustom mouse-wheel-click-event |
| 81 | ;; In the latest versions of XEmacs, we could just use mouse-%s as well. | 84 | ;; In the latest versions of XEmacs, we could just use mouse-%s as well. |
| 82 | (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") | 85 | (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") |