From mboxrd@z Thu Jan  1 00:00:00 1970
Path: main.gmane.org!not-for-mail
From: Kolya Poganini <poganini@hotmail.com>
Newsgroups: gmane.emacs.help
Subject: Re: Activating Mousewheel
Date: Fri, 25 Oct 2002 11:47:38 -0400
Organization: University of Maryland College Park
Sender: help-gnu-emacs-admin@gnu.org
Message-ID: <apbp9k$5lj$1@grapevine.wam.umd.edu>
References: <ap9a0h$p9u$06$1@news.t-online.com>
NNTP-Posting-Host: main.gmane.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7Bit
X-Trace: main.gmane.org 1035561329 3568 80.91.224.249 (25 Oct 2002 15:55:29 GMT)
X-Complaints-To: usenet@main.gmane.org
NNTP-Posting-Date: Fri, 25 Oct 2002 15:55:29 +0000 (UTC)
Return-path: <help-gnu-emacs-admin@gnu.org>
Original-Received: from monty-python.gnu.org ([199.232.76.173])
	by main.gmane.org with esmtp (Exim 3.35 #1 (Debian))
	id 1856o3-0000v4-00
	for <gnu-help-gnu-emacs@m.gmane.org>; Fri, 25 Oct 2002 17:55:27 +0200
Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org)
	by monty-python.gnu.org with esmtp (Exim 4.10)
	id 1856oy-0007Ah-00; Fri, 25 Oct 2002 11:56:24 -0400
Original-Path: shelby.stanford.edu!newsfeed.stanford.edu!bloom-beacon.mit.edu!news2.wam.umd.edu!not-for-mail
Original-Newsgroups: gnu.emacs.help
Original-Lines: 40
Original-NNTP-Posting-Host: bison.umd.edu
Original-X-Trace: grapevine.wam.umd.edu 1035561076 5811 129.2.41.126 (25 Oct 2002 15:51:16 GMT)
Original-X-Complaints-To: abuse@wam.umd.edu
Original-NNTP-Posting-Date: Fri, 25 Oct 2002 15:51:16 +0000 (UTC)
User-Agent: KNode/0.6.1
Original-Xref: shelby.stanford.edu gnu.emacs.help:106384
Original-To: help-gnu-emacs@gnu.org
Errors-To: help-gnu-emacs-admin@gnu.org
X-BeenThere: help-gnu-emacs@gnu.org
X-Mailman-Version: 2.0.11
Precedence: bulk
List-Help: <mailto:help-gnu-emacs-request@gnu.org?subject=help>
List-Post: <mailto:help-gnu-emacs@gnu.org>
List-Subscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=subscribe>
List-Id: Users list for the GNU Emacs text editor <help-gnu-emacs.gnu.org>
List-Unsubscribe: <http://mail.gnu.org/mailman/listinfo/help-gnu-emacs>,
	<mailto:help-gnu-emacs-request@gnu.org?subject=unsubscribe>
List-Archive: <http://mail.gnu.org/pipermail/help-gnu-emacs/>
Xref: main.gmane.org gmane.emacs.help:2934
X-Report-Spam: http://spam.gmane.org/gmane.emacs.help:2934

(defvar wheel-scroll-number-of-lines 5)

(defun wheel-scroll-up-fix-point ()
  (interactive)
  (scroll-up wheel-scroll-number-of-lines)
  (forward-line wheel-scroll-number-of-lines)
  )
(defun wheel-scroll-down-fix-point ()
  (interactive)
  (scroll-up (- wheel-scroll-number-of-lines))
  (forward-line (- wheel-scroll-number-of-lines))
  )

(global-set-key [mouse-4] 'wheel-scroll-down-fix-point)
(global-set-key [mouse-5] 'wheel-scroll-up-fix-point)



Florian Lindner wrote:

> Hello,
> how can I enable the mouse wheel for scrolling (MS Intellimouse Explorer
> on USB)?
> From my X config:
> 
> Section "InputDevice"
>     Identifier "Mouse1"
>     Driver "mouse"
>     Option "Protocol" "ExplorerPS/2"
>     Option "Device" "/dev/usbmouse"
>     Option "ZAxisMapping" "4 5"
> EndSection
> 
> It works with KDE.
> 
> I've tried
> (require 'mwheel) but not effect. Emacs is 21.2, most recent release.
> Thx,
> Florian