mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(mouse-wheel-up-event, mouse-wheel-down-event):

Browse source 
Use wheel-* events on darwin.
This commit is contained in:
Jason Rumney 2003-06-07 00:24:41 +00:00
parent 65419ab2e9
commit fac7d58b87
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/mwheel.el
View file

@ -58,7 +58,7 @@
'mouse-wheel-down-event)
(defcustom mouse-wheel-down-event
;; In the latest versions of XEmacs, we could just use mouse-%s as well.
(if (memq system-type '(windows-nt macos))
(if (memq system-type '(windows-nt macos darwin))
'wheel-up
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
mouse-wheel-down-button)))
@ -72,7 +72,7 @@
'mouse-wheel-up-event)
(defcustom mouse-wheel-up-event
;; In the latest versions of XEmacs, we could just use mouse-%s as well.
(if (memq system-type '(windows-nt macos))
(if (memq system-type '(windows-nt macos darwin))
'wheel-down
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
mouse-wheel-up-button)))