From xemacs-m  Tue Apr  8 09:33:07 1997
Received: from jagor.srce.hr (hniksic@jagor.srce.hr [161.53.2.130])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id JAA00306
	for <xemacs-beta@xemacs.org>; Tue, 8 Apr 1997 09:33:05 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id QAA16786; Tue, 8 Apr 1997 16:33:01 +0200 (MET DST)
Sender: hniksic@public.srce.hr
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: mouse.el blah blah...
X-URL: ftp://gnjilux.cc.fer.hr/pub/unix/util/wget/
X-Attribution: Hrv
X-Face: &}4JQk=L;e.~x+|eo]#DGk@x3~ed!.~lZ}YQcYb7f[WL9L'Z*+OyA\nA
        EL1M(".[qvI#a2E6WYI5>>e7'@_)3Ol9p|Nn2wNa/;~06jL*B%tTcn/X
        vhAu7qeES0\|MF%$;sI#yn1+y"
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 08 Apr 1997 16:33:01 +0200
Message-ID: <kig3et1h9eq.fsf@jagor.srce.hr>
Lines: 73
X-Mailer: Gnus v5.4.42/XEmacs 19.15

--- mouse.el.orig	Tue Apr  8 16:24:07 1997
+++ mouse.el	Tue Apr  8 16:26:44 1997
@@ -34,14 +34,18 @@
 
 (global-set-key 'button2 'mouse-yank)
 
-(defvar mouse-track-rectangle-p nil
+(defcustom mouse-track-rectangle-p nil
   "*If true, then dragging out a region with the mouse selects rectangles
-instead of simple start/end regions.")
+instead of simple start/end regions."
+  :type 'boolean
+  :group 'mouse)
 
-(defvar mouse-yank-at-point nil
+(defcustom mouse-yank-at-point nil
   "*If non-nil, the function `mouse-yank' will yank text at the cursor location.
 Otherwise, the cursor will be moved to the location of the pointer click before
-text is inserted.")
+text is inserted."
+  :type 'boolean
+  :group 'mouse)
 
 (defvar mouse-yank-function 'yank	; x11/x-mouse changes this...
   "Function that is called upon by `mouse-yank' to actually insert text.")
@@ -497,11 +501,13 @@
 all hook functions are called regardless of their return
 values.")
 
-(defvar mouse-track-multi-click-time 400
-  "Maximum number of milliseconds allowed between clicks for a multi-click.
-See `mouse-track-click-hook'.")
+(defcustom mouse-track-multi-click-time 400
+  "*Maximum number of milliseconds allowed between clicks for a multi-click.
+See `mouse-track-click-hook'."
+  :type 'integer
+  :group 'mouse)
 
-(defvar mouse-track-scroll-delay 100
+(defcustom mouse-track-scroll-delay 100
   "Maximum of milliseconds between calls to `mouse-track-drag-hook'.
 If the user is dragging the mouse (i.e. the button is held down and
 a drag has been initiated) and does not move the mouse for this many
@@ -510,7 +516,9 @@
 in a selection when the user drags the mouse out the window it
 was in.
 
-A value of nil disables the timeout feature.")
+A value of nil disables the timeout feature."
+  :type '(choice integer (const :tag "Disabled" nil))
+  :group 'mouse)
 
 (defvar mouse-track-x-threshold '(face-width 'default)
   "Minimum number of pixels in the X direction for a drag to be initiated.
@@ -1243,8 +1251,10 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;
 
 
-(defvar inhibit-help-echo nil
-  "Inhibits display of `help-echo' extent properties in the minibuffer.")
+(defcustom inhibit-help-echo nil
+  "Inhibits display of `help-echo' extent properties in the minibuffer."
+  :type 'boolean
+  :group 'mouse)
 (defvar last-help-echo-object nil)
 (defvar help-echo-owns-message nil)
 

-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
"Silence!" cries Freydag. "I did not call thee in for a consultation!" 
"They are my innards! I will not have them misread by a poseur!"

