Mercurial > emacs
comparison lisp/mwheel.el @ 89909:68c22ea6027c
Sync to HEAD
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 16 Apr 2004 12:51:06 +0000 |
| parents | 375f2633d815 |
| children | cb7f41387eb3 |
comparison
equal
deleted
inserted
replaced
| 89908:ee1402f7b568 | 89909:68c22ea6027c |
|---|---|
| 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 darwin)) | 61 (if (memq window-system '(w32 mac)) |
| 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 darwin)) | 75 (if (memq window-system '(w32 mac)) |
| 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 |
| 248 "Enable mouse wheel support." | 248 "Enable mouse wheel support." |
| 249 (mouse-wheel-mode (if uninstall -1 1))) | 249 (mouse-wheel-mode (if uninstall -1 1))) |
| 250 | 250 |
| 251 (provide 'mwheel) | 251 (provide 'mwheel) |
| 252 | 252 |
| 253 ;;; arch-tag: 50ed00e7-3686-4b7a-8037-fb31aa5c237f | |
| 253 ;;; mwheel.el ends here | 254 ;;; mwheel.el ends here |