From xemacs-m  Wed Jun 18 21:45: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 VAA21404
	for <xemacs-beta@xemacs.org>; Wed, 18 Jun 1997 21:45:05 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id EAA23385; Thu, 19 Jun 1997 04:45:03 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: [PATCH] `bar-cursor' customization
X-Attribution: Hrv
X-Face: Mie8:rOV<\c/~z{s.X4A{!?vY7{drJ([U]0O=W/<W*SMo/Mv:58:*_y~ki>xDi&N7XG
        KV^$k0m3Oe/)'e%3=$PCR&3ITUXH,cK>]bci&<qQ>Ff%x_>1`T(+M2Gg/fgndU%k*ft
        [(7._6e0n-V%|%'[c|q:;}td$#INd+;?!-V=c8Pqf}3J
From: Hrvoje Niksic <hniksic@srce.hr>
Date: 19 Jun 1997 04:45:02 +0200
Message-ID: <kiglo47s441.fsf@jagor.srce.hr>
Lines: 23
X-Mailer: Gnus v5.4.52/XEmacs 20.3(beta7)

I wonder how many more builtin variables there are that are not marked 
with asterisks, and have thus avoided customization.  Quite a number,
I'd say! :-(

--- lisp/prim/cus-start.el.orig	Thu Jun 19 04:37:34 1997
+++ lisp/prim/cus-start.el	Thu Jun 19 04:40:24 1997
@@ -59,6 +59,10 @@
 	     (auto-save-file-format auto-save
 				    (choice (const :tag "Normal" t)
 					    (repeat (symbol :tag "Format"))))
+	     (bar-cursor display (choice (const :tag "Block Cursor" nil)
+					 (const :tag "Bar Cursor (1 pixel)" t)
+					 (sexp :tag "Bar Cursor (2 pixels)"
+					       :format "%t\n" 'other)))
 	     (completion-ignored-extensions minibuffer
 					    (repeat
 					     (string :format "%v")))


-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
The end of the world is coming...  SAVE YOUR BUFFERS!

