From owner-FreeBSD-users-jp@jp.freebsd.org  Fri Jun 13 23:56:32 1997
Received: by jaz.jp.freebsd.org (8.8.5+2.7Wbeta5/8.7.3) id XAA21570
	Fri, 13 Jun 1997 23:56:32 +0900 (JST)
Received: by jaz.jp.freebsd.org (8.8.5+2.7Wbeta5/8.7.3) with ESMTP id XAA21565
	for <FreeBSD-users-jp@jp.freebsd.org>; Fri, 13 Jun 1997 23:56:29 +0900 (JST)
Received: from localhost.kw.netlaputa.or.jp (km3-ppp30.kw.netlaputa.or.jp [202.208.194.222]) by smtp.kw.netlaputa.or.jp (8.8.5/8.5-smtp) with ESMTP id XAA26466 for <FreeBSD-users-jp@jp.freebsd.org>; Fri, 13 Jun 1997 23:56:24 +0900 (JST)
Message-Id: <199706131456.XAA26466@smtp.kw.netlaputa.or.jp>
To: FreeBSD-users-jp@jp.freebsd.org
From: yamagus@kw.netlaputa.or.jp (YAMAGUCHI, Shuhei)
In-Reply-To: Your message of "Tue, 10 Jun 1997 01:50:44 +0900"
References: <199706091651.BAA25623@tokyo.inetc.com>
X-Mailer: Mew version 1.70 on Emacs 19.34.94.5 / Mule 3.0
X-URL: http://www.netlaputa.or.jp/~yamagus/
Mime-Version: 1.0
Content-Type: Text/Plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Date: Fri, 13 Jun 1997 23:56:11 +0900
Reply-To: FreeBSD-users-jp@jp.freebsd.org
Precedence: bulk
X-Distribute: distribute [version 2.1 (Alpha) patchlevel=19]
X-Sequence: FreeBSD-users-jp 14222
Subject: [FreeBSD-users-jp 14222] Mule with IntelliMouse (Re: XFree86  3.3 with IntelliMouse)
Errors-To: owner-FreeBSD-users-jp@jp.freebsd.org
Sender: owner-FreeBSD-users-jp@jp.freebsd.org

$B$d$^$0$A!w$M$C$H$i$T$e$?$N=;?M!"$G$9!#(B

>>> In article <199706091651.BAA25623@tokyo.inetc.com>,
>>>    Nakasone Takara <nakasone@campusnet.or.jp> writes:

  >> $B;d$O$H$j$"$($:(BMule$B$r%[%$!<%k$G%9%/%m!<%k2DG=$K$7$F$_$^$7$?!#(B
  >> $B$?$@:#(BFreeBSD$B:F%$%s%9%H!<%kCf$G!"%P%C%/%"%C%W$NCf$K$"$k$N$G!"(B
  >> $B<{MW$,$"$l$P!"I|5l:n6H8e$KN.$7$^$9!#(B
  >> $B!t$H$O$$$(!"CQ$:$+$7$$$[$I4JC1$J(Belisp$B$J$s$G$9$,!D!#(B
  nakasone> 
  nakasone> $B$$$($$$(!"@'Hs$*4j$$$7$^$9!#:#8e!"(Bintelli mouse patch $B$,$$$m$$$m$H=P(B
  nakasone> $B$F$/$k$+$bCN$l$^$;$s$M!#(B

$BBgJQn/$/$J$C$F?=$7Lu$"$j$^$;$s!#(B (^^;
Mule IntelliMouse$BBP1~2=(Belisp$B$G$9!#(B
load-path$B$NDL$C$?$H$3$m$KCV$-!"(Bload$B$9$k$@$1$G$9!#(B

$BF0:n3NG'$O(Bgnumule-19.34.94.zeta$B$G$7$+9T$C$F$$$^$;$s$,!"(B
$BB?J,(B19.28$B%Y!<%9$N(BMule$B$G$bBg>fIW$@$H;W$$$^$9!#(B

$B:FG[I[!&2~B$$OA4$/2D$G$9$,!"L5J]>Z$G$9!#(B
$B!t$3$s$J$N=q$/Dx$N$b$N$8$c$J$$$G$9$1$I!D!#(B (^^;

#------------------ $B$3$3$+$i(B --------------------------------
;;; intellimouse.el --- window system-independent IntelliMouse support

;; Copyright (C) 1997 yamagus@kw.netlaputa.or.jp

;; Maintainer: yamagus@kw.netlaputa.or.jp
;; Keywords: hardware

(defvar wheel-scroll-lines 3
  "*Number of lines to try scrolling a window when spin the wheel button.")

(defun wheel-scroll-down (click)
  (interactive "e")
  (mouse-minibuffer-check click)
  (let ((cw (selected-window))
	(sw (posn-window (event-start click))))
    (select-window sw)
    (condition-case ()
	(scroll-down wheel-scroll-lines)
      (beginning-of-buffer
       (goto-char (point-min))))
    (select-window cw)))
    
(defun wheel-scroll-up (click)
  (interactive "e")
  (mouse-minibuffer-check click)
  (let ((cw (selected-window))
	(sw (posn-window (event-start click))))
    (select-window sw)
    (condition-case ()
	(scroll-up wheel-scroll-lines)
      (end-of-buffer
       (goto-char (point-max))))
    (select-window cw)))

(global-set-key [mouse-4] 'wheel-scroll-down)
(global-set-key [mouse-5] 'wheel-scroll-up)
#------------------ $B$3$3$^$G(B --------------------------------

$B$*$^$1!#(B
$B$b$8$i$G%9%/%m!<%k$7$FLa$C$F?J$`!#(B(v30$B$K$F3NG'(B)
refresh()$B$r:o$k$H!"$J$<$+%9%/%m!<%k;~$KJ8;z$,:o$l$F$7$^$$$^$9!#(B
refresh()$B$,$"$k$H!"%9%/%m!<%k$NEY$K$A$i$D$-$^$9!#(B

Netscape*globalTranslations:
$B$K!"0J2<$rDI2C!#(B
 ~Shift ~Meta ~Alt ~Ctrl<Btn4Down>: LineUp() LineUp() LineUp() refresh()
 ~Shift ~Meta ~Alt ~Ctrl<Btn5Down>: LineDown() LineDown() LineDown() refresh()
 Shift ~Meta ~Alt ~Ctrl<Btn4Down>: forward()
 Shift ~Meta ~Alt ~Ctrl<Btn5Down>: back()

$B!t9TKv$K(B`\n'$B$d(B`\n\'$B$rIU$1$k$N$rK:$l$J$$$G$/$@$5$$!#(B

$B$G$o$G$o(B
-- 
yamagus@kw.netlaputa.or.jp / $B;38}(B $B=$J?(B
