mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-12 10:44:12 -08:00
Code Issues 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")