martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(mouse-wheel-down-button, mouse-wheel-up-button, mouse-wheel-click-button):

Browse Source 
Add WHEN to obsolescence declaration.
This commit is contained in:
Juanma Barranquero
2008-04-18 10:30:38 +00:00
parent 5e38cdab45
commit 89ee01639d
1 changed files with 6 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/mwheel.el
View File

@@ -56,7 +56,8 @@
(defvar mouse-wheel-down-button 4)
(make-obsolete-variable 'mouse-wheel-down-button
'mouse-wheel-down-event)
'mouse-wheel-down-event
"22.1")
(defcustom mouse-wheel-down-event
;; In the latest versions of XEmacs, we could just use mouse-%s as well.
(if (memq window-system '(w32 mac))
@@ -70,7 +71,8 @@
(defvar mouse-wheel-up-button 5)
(make-obsolete-variable 'mouse-wheel-up-button
'mouse-wheel-up-event)
'mouse-wheel-up-event
"22.1")
(defcustom mouse-wheel-up-event
;; In the latest versions of XEmacs, we could just use mouse-%s as well.
(if (memq window-system '(w32 mac))
@@ -84,7 +86,8 @@
(defvar mouse-wheel-click-button 2)
(make-obsolete-variable 'mouse-wheel-click-button
'mouse-wheel-click-event)
'mouse-wheel-click-event
"22.1")
(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")