Skip site navigation (1)Skip section navigation (2)
Date:      Thu, 14 Nov 2002 20:27:51 +0100
From:      Norbert Koch <nk@viteno.net>
To:        FreeBSD-gnats-submit@FreeBSD.org
Cc:        rendhalver@xemacs.org (Rendhalver [Peter Brown])
Subject:   docs/45295: [PATCH] FAQ entry about XEmacs's wheel-mouse support
Message-ID:  <E18CPeZ-0000Bv-00@viteno.dyns.net>

index | next in thread | raw e-mail


>Number:         45295
>Category:       docs
>Synopsis:       [PATCH] FAQ entry about XEmacs's wheel-mouse support
>Confidential:   no
>Severity:       non-critical
>Priority:       low
>Responsible:    freebsd-doc
>State:          open
>Quarter:        
>Keywords:       
>Date-Required:
>Class:          change-request
>Submitter-Id:   current-users
>Arrival-Date:   Thu Nov 14 11:30:01 PST 2002
>Closed-Date:
>Last-Modified:
>Originator:     Norbert Koch
>Release:        FreeBSD 4.7-STABLE i386
>Organization:
>Environment:
System: FreeBSD viteno.dyns.net 4.7-STABLE FreeBSD 4.7-STABLE #17: Tue Oct 29 23:03:29 CET 2002 root@viteno.dyns.net:/usr/local/obj/usr/local/src/sys/VITENO i386

	
>Description:
The wheel-mouse support from within XEmacs, described in

http://www.freebsd.org/doc/en_US.ISO8859-1/books/faq/x.html

can be achieved easier, see below.  This has been tested in 21.4 
(current gamma) as well as in 21.1 and 21.5 by Peter.

Now, this is going to be fun, as the HTML tags might get stripped by GNATS.
If the patch doesn't apply cleanly, let me know :-)

Cheers,
norbert.


>How-To-Repeat:
	
>Fix:

--- /tmp/x.html.orig	Thu Nov 14 20:10:08 2002
+++ /tmp/x.html	Thu Nov 14 20:10:08 2002
@@ -504,15 +504,8 @@
                   Imwheel</b></p>
 <pre class="PROGRAMLISTING">
     ;;; For imwheel
-    (setq imwheel-scroll-interval 3)
-    (defun imwheel-scroll-down-some-lines ()
-      (interactive)
-      (scroll-down imwheel-scroll-interval))
-    (defun imwheel-scroll-up-some-lines ()
-      (interactive)
-      (scroll-up imwheel-scroll-interval))
-    (define-key global-map [(control meta \))] 'imwheel-scroll-up-some-lines)
-    (define-key global-map [(control meta \()] 'imwheel-scroll-down-some-lines)
+    (mwheel-install)
+    (setq mwheel-follow-mouse t)
     ;;; end imwheel section
 </pre>
                 </div>

>Release-Note:
>Audit-Trail:
>Unformatted:

To Unsubscribe: send mail to majordomo@FreeBSD.org
with "unsubscribe freebsd-doc" in the body of the message



help

Want to link to this message? Use this
URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?E18CPeZ-0000Bv-00>