Path: utzoo!attcan!uunet!snorkelwacker!mit-eddie!bbn!jr@bbn.com
From: jr@bbn.com (John Robinson)
Newsgroups: comp.emacs
Subject: Re: mouse scrolling
Message-ID: <52753@bbn.COM>
Date: 28 Feb 90 15:09:02 GMT
References: <30868@brunix.UUCP>
Sender: news@bbn.COM
Reply-To: jr@bbn.com (John Robinson)
Organization: BBN Systems and Technologies Corporation, Cambridge MA
Lines: 36
In-reply-to: tac@cs.brown.edu (Theodore A. Camus)

In article <30868@brunix.UUCP>, tac@cs (Theodore A. Camus) writes:
>Here's a fast way to scroll in a large file.
>Just position mouse in the window you wish to scroll,
>and shift right click.  The file in that window will
>scroll to a position in the file that is the same 
>percentage as the mouse's position horizontally in the
>window in question.

This idea found its way into the BitGraph mouse package.  Someone
suggested it to me whose name is lost in the mists of time:

  (defun bg-move-by-percentage ()
    "Go to location in buffer that is the same percentage of the
  way through the buffer as the BitGraph mouse's X position in the window."

I'd still like to see all the mouse support (bg, sun, x) integrated
better - there ought to be one mouse library (there sort of is) with
all the mouse functions, and one dispatch method, etc.  Volunteers?

>Btw, you may not be able to put it in your .emacs.
>Just put the define-key's or global-set-mouse's in some
>other function and call it at the eval prompt after you
>start up emacs.

... or hang the function on term-setup-hook, which is evaluated after
the terminal-dependent initialization is done.

  term-setup-hook's value is my-x-button-init

  Documentation:
  Function to be called after loading terminal-specific lisp code.
  It is called with no arguments.  You can use this to override the
  definitions made by the terminal-specific file.
--
/jr, nee John Robinson     Life did not take over the globe by combat,
jr@bbn.com or bbn!jr          but by networking -- Lynn Margulis