Mercurial > emacs

comparison lisp/mwheel.el @ 51522:9dde64573e67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-wheel-up-event, mouse-wheel-down-event): Use wheel-* events on darwin.
author Jason Rumney <jasonr@gnu.org>
date Sat, 07 Jun 2003 00:24:41 +0000
parents ba5edb1b9c8b
children 695cf19ef79e
comparison
equal deleted inserted replaced
51521:0fa152ebcaf3 51522:9dde64573e67
56 (defvar mouse-wheel-down-button 4) 56 (defvar mouse-wheel-down-button 4)
57 (make-obsolete-variable 'mouse-wheel-down-button 57 (make-obsolete-variable 'mouse-wheel-down-button
58 'mouse-wheel-down-event) 58 'mouse-wheel-down-event)
59 (defcustom mouse-wheel-down-event 59 (defcustom mouse-wheel-down-event
60 ;; 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.
61 (if (memq system-type '(windows-nt macos)) 61 (if (memq system-type '(windows-nt macos darwin))
62 'wheel-up 62 'wheel-up
63 (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") 63 (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
64 mouse-wheel-down-button))) 64 mouse-wheel-down-button)))
65 "Event used for scrolling down." 65 "Event used for scrolling down."
66 :group 'mouse 66 :group 'mouse
70 (defvar mouse-wheel-up-button 5) 70 (defvar mouse-wheel-up-button 5)
71 (make-obsolete-variable 'mouse-wheel-up-button 71 (make-obsolete-variable 'mouse-wheel-up-button
72 'mouse-wheel-up-event) 72 'mouse-wheel-up-event)
73 (defcustom mouse-wheel-up-event 73 (defcustom mouse-wheel-up-event
74 ;; In the latest versions of XEmacs, we could just use mouse-%s as well. 74 ;; In the latest versions of XEmacs, we could just use mouse-%s as well.
75 (if (memq system-type '(windows-nt macos)) 75 (if (memq system-type '(windows-nt macos darwin))
76 'wheel-down 76 'wheel-down
77 (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s") 77 (intern (format (if (featurep 'xemacs) "button%s" "mouse-%s")
78 mouse-wheel-up-button))) 78 mouse-wheel-up-button)))
79 "Event used for scrolling down." 79 "Event used for scrolling down."
80 :group 'mouse 80 :group 'mouse