mouse-wheel scrolling for the "other" window

mouse-wheel scrolling for the "other" window

[Klaus Berndl]

Suggestion:

How about to add code like the following to the Emacs distribution:

,----
| (global-set-key (kbd "M-<mouse-wheel>")
|                 'mouse-wheel-scroll-line-other-window)
| 
| (defun mouse-wheel-scroll-line-other-window (event)
|   "Scroll the other window in which EVENT occurred by
| `mouse-wheel-scroll-amount'."
|   (interactive "e")
|   (condition-case nil
|       (if (< (car (cdr (cdr event))) 0)
| 	  (scroll-other-window mouse-wheel-scroll-amount)
| 	(scroll-other-window (* -1 mouse-wheel-scroll-amount)))
|     (error nil)))
`----

IMHO this is very useful for people using a mouse-wheel, e.g. in Gnus to read
articles, reading long docstrings in a help buffer etc...

Ciao,
Klaus

-- 
Klaus Berndl			mailto: klaus.berndl@sdm.de
sd&m AG				http://www.sdm.de
software design & management	
Thomas-Dehler-Str. 27, 81737 München, Germany
Tel +49 89 63812-392, Fax -220

Re: mouse-wheel scrolling for the "other" window

[Alexander Koptelov]

[-- Attachment #1: Type: text/plain, Size: 42 bytes --]


I'm using the following code. Try it =)


[-- Attachment #2: mw.el --]
[-- Type: application/emacs-lisp, Size: 1679 bytes --]

[-- Attachment #3: Type: text/plain, Size: 128 bytes --]



-- 
Alexander Koptelov
Institute for System Programming, Russian Academy of Sciences
e-mail: steve@ispras.ru
icq:    36208499