Path: utzoo!utgpu!jarvis.csri.toronto.edu!rutgers!apple!usc!cs.utexas.edu!tut.cis.ohio-state.edu!dart.cs.byu.edu!mike
From: mike@dart.cs.byu.edu (Mike Burbidge)
Newsgroups: gnu.emacs.bug
Subject: More on X mouse rebind?
Message-ID: <8907071602.AA02986@dart.cs.byu.edu>
Date: 7 Jul 89 16:02:57 GMT
Sender: daemon@tut.cis.ohio-state.edu
Distribution: gnu
Organization: GNUs Not Usenet
Lines: 33

It was pointed out that the .emacs file is run before emacs figures out it
is running on X. The solution was to tie a function to term-setup-hook.
Which worked. I am now having a problem using the function scroll-up. It is
supposed to have one parameter. The first attempt I used was:

(setq term-setup-hook
   '(lambda () (define-key mouse-map x-button-m-right 'scroll-up)))

This is when I discovered that scroll-up must take a parameter, because this
had the effect of scrolling some arbitrary number of lines, more than a
page. I then tryed:

(setq term-setup-hook
    '(lambda () (define-key mouse-map x-button-m-right (scroll-up nil))))

and

(setq term-setup-hook
    '(lambda () (define-key mouse-map x-button-m-right '(scroll-up nil))))

both of which complained of one sort or another.  I then looked at some of
the e-lisp code that comes with emacs and did the following:

(defun scroll-page-up ()
    (scroll-up nil))

(setq term-setup-hook
    '(lambda () (define-key mouse-map x-button-m-right 'scroll-up-page)))

This should work from examples I looked at. Can anyone offer any help?

A. Michael Burbidge.
mike@cs.byu.edu