From xemacs-m  Wed Jun 18 22:39:48 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 WAA04823
	for <xemacs-beta@xemacs.org>; Wed, 18 Jun 1997 22:39:47 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id FAA25406; Thu, 19 Jun 1997 05:39:48 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: Re: [PATCH] `bar-cursor' customization
References: <kiglo47s441.fsf@jagor.srce.hr>
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 05:39:47 +0200
In-Reply-To: Hrvoje Niksic's message of 19 Jun 1997 04:45:02 +0200
Message-ID: <kigzpsnuupo.fsf@jagor.srce.hr>
Lines: 79
X-Mailer: Gnus v5.4.52/XEmacs 20.3(beta7)

Hrvoje Niksic <hniksic@srce.hr> writes:

> I wonder how many more builtin variables there are that are not marked 
> with asterisks, and have thus avoided customization.

Here is some more stuff (on top of the last patch):

--- lisp/prim/cus-start.el.orig	Thu Jun 19 04:50:54 1997
+++ lisp/prim/cus-start.el	Thu Jun 19 05:38:04 1997
@@ -28,7 +28,6 @@
       sexp
     (list 'quote sexp)))
 
-;; The file names below are unreliable, as they are from Emacs 19.34.
 (let ((all '(;; boolean
 	     (abbrev-all-caps abbrev boolean)
 	     (allow-deletion-of-last-visible-frame frames boolean)
@@ -59,13 +58,12 @@
 	     (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")))
+	     (debug-ignored-errors debug (repeat (choice :format "%v"
+							 (symbol :tag "Class")
+							 regexp)))
 	     (debug-on-error debug  (choice (const :tag "off" nil)
 					    (const :tag "Always" t)
 					    (repeat :menu-tag "When"
@@ -109,11 +107,20 @@
 	     (truncate-lines display boolean)
 	     ;; not documented as user-options, but should still be
 	     ;; customizable:
+	     (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)))
 	     (default-frame-plist frames (repeat
 					  (list :inline t
 						:format "%v"
 						(symbol :tag "Parameter")
 						(sexp :tag "Value"))))
+	     (disable-auto-save-when-buffer-shrinks auto-save boolean)
+	     ;; ### We need a `find-file' group.  Remind hniksic to
+	     ;; make one.
+	     (find-file-compare-truenames find-file boolean)
+	     (focus-follows-mouse x boolean)
 	     (help-char keyboard character)
 	     (max-lisp-eval-depth limits integer)
 	     (max-specpdl-size limits integer)
@@ -127,13 +134,15 @@
 					(const :tag "on" t)))
 	     (selective-display-ellipses display boolean)
 	     (signal-error-on-buffer-boundary internal boolean)
-	     (words-include-escapes editing-basics boolean)
 	     (temp-buffer-show-function
 	      windows (radio (function-item :tag "Temp Buffers Always in Same Frame"
 					    :format "%t\n"
 					    show-temp-buffer-in-current-frame)
 			     (const :tag "Temp Buffers Like Other Buffers" nil)
-			     (function :tag "Other")))))
+			     (function :tag "Other")))
+	     (undo-threshold undo integer)
+	     (undo-high-threshold undo integer)
+	     (words-include-escapes editing-basics boolean)))
       this symbol group type)
   (while all 
     (setq this (car all)


-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
Which is worse: ignorance or apathy?  Who knows?  Who cares?

