comparison lisp/term/w32-win.el @ 51386:c750333d879e

No need to bind wheel events specially.

51385:a838a46a67a6

;; The following definition is used for debugging scroll bar events.
;(defun w32-handle-scroll-bar-event (event) (interactive "e") (princ event))

;; Handle mouse-wheel events with mwheel.
;; Normally only mouse-wheel-mode and mwheel-install are autoloaded,
;; but binding mouse-wheel must be done directly, since those functions
;; do not recognize mouse-wheel as a valid button.
(autoload 'mwheel-scroll "mwheel")
(global-set-key [mouse-wheel] 'mwheel-scroll)
(global-set-key [C-mouse-wheel] 'mwheel-scroll)
(global-set-key [S-mouse-wheel] 'mwheel-scroll)

(defun w32-drag-n-drop-debug (event)
  "Print the drag-n-drop EVENT in a readable form."
  (interactive "e")
  (princ event))

51386:c750333d879e

;; The following definition is used for debugging scroll bar events.
;(defun w32-handle-scroll-bar-event (event) (interactive "e") (princ event))

;; Handle mouse-wheel events with mwheel.
(mouse-wheel-mode 1)

(defun w32-drag-n-drop-debug (event)
  "Print the drag-n-drop EVENT in a readable form."
  (interactive "e")
  (princ event))