mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 06:20:43 -08:00
Code Issues Projects Releases Wiki Activity

(mouse-wheel-scroll-line)

Browse source 
(mouse-wheel-scroll-screen): Removed.
([mouse-wheel], [C-mouse-wheel], [S-mouse-wheel]): Use mwheel-scroll.
This commit is contained in:
Jason Rumney 2002-05-04 22:17:07 +00:00
parent b3ddc2a738
commit e596f2a24b
1 changed files with 8 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

35
lisp/term/w32-win.el
View file

@ -83,33 +83,14 @@
;; The following definition is used for debugging scroll bar events.
;(defun w32-handle-scroll-bar-event (event) (interactive "e") (princ event))
;; mwheel.el should probably be adapted to accept mouse-wheel events
;; then this could go.
(defun mouse-wheel-scroll-line (event)
"Scroll the window in which EVENT occurred by `mouse-wheel-scroll-amount'."
(interactive "e")
(condition-case nil
(if (< (car (cdr (cdr event))) 0)
(scroll-up (car mouse-wheel-scroll-amount))
(scroll-down (car mouse-wheel-scroll-amount)))
(error nil)))
;; for scroll-in-place.el, this way the -scroll-line and -scroll-screen
;; commands won't interact
(setq scroll-command-groups (list '(mouse-wheel-scroll-line)))
(defun mouse-wheel-scroll-screen (event)
"Scroll the window in which EVENT occurred by `mouse-wheel-scroll-amount'."
(interactive "e")
(condition-case nil
(if (< (car (cdr (cdr event))) 0)
(scroll-up)
(scroll-down))
(error nil)))
;; Bind the mouse-wheel event:
(global-set-key [mouse-wheel] 'mouse-wheel-scroll-line)
(global-set-key [C-mouse-wheel] 'mouse-wheel-scroll-screen)
;; 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."