[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mwheel.el
From: |
Jason Rumney |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mwheel.el |
Date: |
Fri, 06 Jun 2003 20:24:41 -0400 |
Index: emacs/lisp/mwheel.el
diff -c emacs/lisp/mwheel.el:1.29 emacs/lisp/mwheel.el:1.30
*** emacs/lisp/mwheel.el:1.29 Wed Jun 4 17:53:00 2003
--- emacs/lisp/mwheel.el Fri Jun 6 20:24:41 2003
***************
*** 58,64 ****
'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))
'wheel-up
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
mouse-wheel-down-button)))
--- 58,64 ----
'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 darwin))
'wheel-up
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
mouse-wheel-down-button)))
***************
*** 72,78 ****
'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))
'wheel-down
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
mouse-wheel-up-button)))
--- 72,78 ----
'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 darwin))
'wheel-down
(intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
mouse-wheel-up-button)))