/usr/share/doc/HOWTO/ja-html/mouse-wheel-scroll-11.html is in doc-linux-ja-html 2006.05.25-1.1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 | <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<HTML>
<HEAD>
<META NAME="GENERATOR" CONTENT="SGML-Tools 1.0.9">
<TITLE> X mouse wheel scroll: XEmacs </TITLE>
<LINK HREF="mouse-wheel-scroll-12.html" REL=next>
<LINK HREF="mouse-wheel-scroll-10.html" REL=previous>
<LINK HREF="mouse-wheel-scroll.html#toc11" REL=contents>
</HEAD>
<BODY>
<A HREF="mouse-wheel-scroll-12.html">¼¡¤Î¥Ú¡¼¥¸</A>
<A HREF="mouse-wheel-scroll-10.html">Á°¤Î¥Ú¡¼¥¸</A>
<A HREF="mouse-wheel-scroll.html#toc11">Ìܼ¡¤Ø</A>
<HR>
<H2><A NAME="xemacs"></A> <A NAME="s11">11. XEmacs </A></H2>
<P>Ä̾ï¤Ï¡¢
<A HREF="mailto:<wmperry@cs.indiana.edu">William M. Perry</A>
¤Î
<A HREF="ftp://ftp.cs.indiana.edu/pub/elisp/mwheel.el">mwheel.el</A>
emacs ¥Ñ¥Ã¥±¡¼¥¸¤ò»È¤¦¤Ù¤¤Ç¤¹¡£¤·¤«¤·¡¢¤³¤Î¥ê¥ó¥¯¤òÆ°¤«¤¹Á°¤Ë
<A HREF="http://www.inria.fr/koala/colas/mouse-wheel-scroll/mwheel.el">mwheel.el ¤Î¥Ù¡¼¥¿ÈÇ</A>
(Feb 23 1998) ¤Î¥í¡¼¥«¥ë¥³¥Ô¡¼¡¢¤Þ¤¿¤Ï²¼µ¤Î»ä¤¬ºîÀ®¤·¤¿Ì¤´°À®¤Î¥³¡¼¥É¤ò
»È¤¦¤³¤È¤â¤Ç¤¤Þ¤¹¡£
<P>.el ¥Õ¥¡¥¤¥ë (¥Ç¥Õ¥©¥ë¥È¤Ï /.emacs) ¤Ë¤É¤ì¤«°ì¤Ä¤ò²Ã¤¨¤Æ¤¯¤À¤µ¤¤¡£
<P>
<PRE>
;;=============================================================================
;; scroll on mouse wheel
;;=============================================================================
;; scroll on wheel of mouses
(define-key global-map 'button4
'(lambda (&rest args)
(interactive)
(let ((curwin (selected-window)))
(select-window (car (mouse-pixel-position)))
(scroll-down 5)
(select-window curwin)
)))
(define-key global-map [(shift button4)]
'(lambda (&rest args)
(interactive)
(let ((curwin (selected-window)))
(select-window (car (mouse-pixel-position)))
(scroll-down 1)
(select-window curwin)
)))
(define-key global-map [(control button4)]
'(lambda (&rest args)
(interactive)
(let ((curwin (selected-window)))
(select-window (car (mouse-pixel-position)))
(scroll-down)
(select-window curwin)
)))
(define-key global-map 'button5
'(lambda (&rest args)
(interactive)
(let ((curwin (selected-window)))
(select-window (car (mouse-pixel-position)))
(scroll-up 5)
(select-window curwin)
)))
(define-key global-map [(shift button5)]
'(lambda (&rest args)
(interactive)
(let ((curwin (selected-window)))
(select-window (car (mouse-pixel-position)))
(scroll-up 1)
(select-window curwin)
)))
(define-key global-map [(control button5)]
'(lambda (&rest args)
(interactive)
(let ((curwin (selected-window)))
(select-window (car (mouse-pixel-position)))
(scroll-up)
(select-window curwin)
)))
</PRE>
<P>¤½¤·¤Æ´ØÏ¢¤¹¤ëÏÃÂê¤È¤·¤Æ¡¢¿ô»ú¥¡¼¤Ç XEmacs ¤Î¥Ê¥Ó¥²¡¼¥È¤ò¤¹¤ë°Ê²¼¤Î¥³¡¼¥É
¤â»ÈÍѤǤ¤Þ¤¹¡£
<PRE>
;;=============================================================================
;; scroll on numpad
;;=============================================================================
(define-key global-map 'kp_9 'scroll-down)
(define-key global-map 'kp_3 'scroll-up)
(define-key global-map 'kp_6
'(lambda (&rest args) (interactive) (other-window 1)))
(define-key global-map 'kp_4
'(lambda (&rest args) (interactive) (other-window -1)))
(define-key global-map 'kp_2
'(lambda (&rest args) (interactive) (scroll-up 1)))
(define-key global-map 'kp_8
'(lambda (&rest args) (interactive) (scroll-down 1)))
(define-key global-map 'kp_7 'beginning-of-buffer)
(define-key global-map 'kp_1 'end-of-buffer)
(define-key global-map 'kp_5
'(lambda (&rest args) (interactive) (recenter 0)))
</PRE>
<P>
<HR>
<A HREF="mouse-wheel-scroll-12.html">¼¡¤Î¥Ú¡¼¥¸</A>
<A HREF="mouse-wheel-scroll-10.html">Á°¤Î¥Ú¡¼¥¸</A>
<A HREF="mouse-wheel-scroll.html#toc11">Ìܼ¡¤Ø</A>
</BODY>
</HTML>
|