From xemacs-m  Tue Apr  8 09:31:14 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 JAA00277
	for <xemacs-beta@xemacs.org>; Tue, 8 Apr 1997 09:31:12 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id QAA16526; Tue, 8 Apr 1997 16:30:55 +0200 (MET DST)
Sender: hniksic@public.srce.hr
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: modeline.el customized
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:30:55 +0200
Message-ID: <kig4tdhh9i8.fsf@jagor.srce.hr>
Lines: 40
X-Mailer: Gnus v5.4.42/XEmacs 19.15

--- modeline.el.orig	Tue Apr  8 16:17:14 1997
+++ modeline.el	Tue Apr  8 16:22:50 1997
@@ -26,16 +26,24 @@
 ;;;                     General mouse modeline stuff                    ;;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-(defvar drag-modeline-event-lag 150
-  "*The amount of time to wait (in msecs) between drag modeline events
-before updating the display. If this value is too small, dragging will
-be choppy because redisplay cannot keep up. If it is too large, dragging
-will be choppy because of the explicit redisplay delay specified.")
+(defgroup modeline nil
+  "Modeline customizations"
+  :group 'environment)
 
-(defvar modeline-click-swaps-buffers nil
+(defcustom drag-modeline-event-lag 150
+  "*The pause (in msecs) between drag modeline events before redisplaying.
+If this value is too small, dragging will be choppy because redisplay cannot
+keep up. If it is too large, dragging will be choppy because of the explicit
+redisplay delay specified."
+  :type 'integer
+  :group 'modeline)
+
+(defcustom modeline-click-swaps-buffers nil
   "*If non-nil, clicking on the modeline changes the current buffer.
 Click on the left half of the modeline cycles forward through the
-buffer list and clicking on the right half cycles backward.")
+buffer list and clicking on the right half cycles backward."
+  :type 'boolean
+  :group 'modeline)
 
 (defun mouse-drag-modeline (event)
   "Resize the window by dragging the modeline.

-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
Unspeakable horrors from outer space paralyze the living and
resurrect the dead!

