From xemacs-m  Sun May  4 23:42:33 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 XAA18860
	for <xemacs-beta@xemacs.org>; Sun, 4 May 1997 23:42:32 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id GAA10223; Mon, 5 May 1997 06:42:32 +0200 (MET DST)
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: Built-in variables are customized
X-Save-Project-Gutenberg: <URL:http://www.promo.net/pg/nl/pgny_nov96.html>
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: 05 May 1997 06:42:31 +0200
Message-ID: <kigzpuah6mg.fsf@jagor.srce.hr>
Lines: 197
X-Mailer: Gnus v5.4.50/XEmacs 19.15

I have customized the XEmacs built-in variables (except for the
specifiers) the docstring of which begins with `*'.  The job is based
on Per Abrahamsen's work in the are, but the variable names were
obtained using the functions posted yesterday.

After applying the following patch, byte-compile cus-start.el, and
enjoy.  Do not be misled by the size of the patch -- I have tested
this stuff well (on a redumped 20.2-b4, testing each variable
separately), and I think it should go to 20.2, as a final touch for
customize.

As an additional safety measure, test it once more.  Thanks.

--- lisp/prim/cus-start.el.orig	Mon May  5 01:32:39 1997
+++ lisp/prim/cus-start.el	Mon May  5 06:37:04 1997
@@ -29,20 +29,92 @@
     (list 'quote sexp)))
 
 ;; The file names below are unreliable, as they are from Emacs 19.34.
-(let ((all '(;; abbrev.c 
-	     (abbrev-all-caps abbrev-mode boolean)
-	     (pre-abbrev-expand-hook abbrev-mode hook)
-	     ;; alloc.c
+(let ((all '(;; boolean
+	     (abbrev-all-caps abbrev boolean)
+	     (debug-on-quit debug boolean)
+	     (delete-exited-processes processes-basics boolean)
+	     (indent-tabs-mode editing-basics boolean)
+	     (load-ignore-elc-files maint boolean)
+	     (load-warn-when-source-newer maint boolean)
+	     (load-warn-when-source-only maint boolean)
+	     (modifier-keys-are-sticky keyboard boolean)
+	     (no-redraw-on-reenter display boolean)
+	     (scroll-on-clipped-lines display boolean)
+	     (truncate-partial-width-windows display boolean)
+	     (visible-bell sound boolean)
+	     (x-allow-sendevents x boolean)
+	     (zmacs-regions editing-basics boolean)
+	     ;; integer
+	     (auto-save-interval auto-save integer)
+	     (bell-volume sound integer)
+	     (echo-keystrokes keyboard integer)
 	     (gc-cons-threshold alloc integer)
-	     ;; buffer.c
-	     (modeline-format modeline sexp) ;Hard to do right.
-	     (default-major-mode internal function)
+	     (next-screen-context-lines display integer)
+	     (scroll-step windows integer)
+	     (window-min-height windows integer)
+	     (window-min-width windows integer)
+	     ;; object
+	     (allow-deletion-of-last-visible-frame frames boolean) ; ###
+	     (auto-save-file-format auto-save
+				    (choice (const :tag "Normal" t)
+					    (repeat (symbol :tag "Format"))))
+	     (completion-ignored-extensions minibuffer
+					    (repeat
+					     (string :format "%v")))
+	     (debug-on-error debug  (choice (const :tag "off" nil)
+					    (const :tag "Always" t)
+					    (repeat :menu-tag "When"
+						    :value (nil)
+						    (symbol
+						     :tag "Condition"))))
+	     (debug-on-signal debug (choice (const :tag "off" nil)
+					    (const :tag "Always" t)
+					    (repeat :menu-tag "When"
+						    :value (nil)
+						    (symbol
+						     :tag "Condition"))))
+	     (delete-auto-save-files auto-save boolean) ; ###
+	     (exec-path processes-basics (repeat
+					  (choice :tag "Directory"
+						  (const :tag "Default" nil)
+						  (directory :format "%v"))))
+	     (file-name-handler-alist data (repeat
+					    (cons regexp
+						  (function :tag "Handler"))))
+	     (shell-file-name execute file)
+	     (stack-trace-on-error debug (choice (const :tag "off" nil)
+					    (const :tag "Always" t)
+					    (repeat :menu-tag "When"
+						    :value (nil)
+						    (symbol
+						     :tag "Condition"))))
+	     (stack-trace-on-signal debug (choice (const :tag "off" nil)
+					    (const :tag "Always" t)
+					    (repeat :menu-tag "When"
+						    :value (nil)
+						    (symbol
+						     :tag "Condition"))))
+	     ;; buffer-local
 	     (case-fold-search matching boolean)
+	     (ctl-arrow display (choice (integer 160)
+					(sexp :tag "160 (default)"
+					      :format "%t\n")))
 	     (fill-column fill integer)
 	     (left-margin fill integer)
 	     (tab-width editing-basics integer)
-	     (ctl-arrow display boolean)
 	     (truncate-lines display boolean)
+	     ;; not documented as user-options, but should still be
+	     ;; customizable:
+	     (default-frame-plist frames (repeat
+					  (list :inline t
+						:format "%v"
+						(symbol :tag "Parameter")
+						(sexp :tag "Value"))))
+	     (help-char keyboard character)
+	     (max-lisp-eval-depth limits integer)
+	     (max-specpdl-size limits integer)
+	     (meta-prefix-char keyboard character)
+	     (parse-sexp-ignore-comments editing-basics boolean)
 	     (selective-display display 
 				(choice (const :tag "off" nil)
 					(integer :tag "space"
@@ -50,66 +122,14 @@
 						 1)
 					(const :tag "on" t)))
 	     (selective-display-ellipses display boolean)
-	     ;; callproc.c
-	     (shell-file-name execute file)
-	     (exec-path execute
-			(repeat (choice (const :tag "default" nil)
-					(file :format "%v"))))
-	     ;; dired.c
-	     (completion-ignored-extensions dired 
-					    (repeat (string :format "%v")))
-	     ;; dispnew.el
-	     (visible-bell display boolean)
-	     (no-redraw-on-reenter display boolean)
-	     ;; eval.c
-	     (max-specpdl-size limits integer)
-	     (max-lisp-eval-depth limits integer)
-	     (stack-trace-on-error debug
-				   (choice (const :tag "off")
-					   (repeat :menu-tag "When"
-						   :value (nil)
-						   (symbol :format "%v"))
-					   (const :tag "always" t)))
-	     (debug-on-error debug 
-			     (choice (const :tag "off")
-				     (repeat :menu-tag "When"
-					     :value (nil)
-					     (symbol :format "%v"))
-				     (const :tag "always" t)))
-	     (debug-on-quit debug choice)
-	     ;; frame.c
-	     (default-frame-plist frames
-	       (repeat (cons :format "%v"
-			     (symbol :tag "Parameter")
-			     (sexp :tag "Value"))))
-	     ;; indent.c
-	     (indent-tabs-mode fill boolean)
-	     ;; keyboard.c
-	     (meta-prefix-char keyboard character)
-	     (auto-save-interval auto-save integer)
-	     (echo-keystrokes minibuffer boolean)
-	     (help-char keyboard character)
-	     ;; lread.c
-	     (load-path environment 
-			(repeat (choice :tag "Directory"
-					(const :tag "default" nil)
-					(directory :format "%v"))))
-	     ;; process.c
-	     (delete-exited-processes proces-basics boolean)
-	     ;; syntax.c
-	     (parse-sexp-ignore-comments editing-basics boolean)
+	     (signal-error-on-buffer-boundary internal boolean)
 	     (words-include-escapes editing-basics boolean)
-	     ;; window.c
-	     (temp-buffer-show-function windows function)
-	     (next-screen-context-lines windows boolean)
-	     (window-min-height windows integer)
-	     (window-min-width windows integer)
-	     ;; xdisp.c
-	     (scroll-step windows integer)
-	     (truncate-partial-width-windows display boolean)
-	     ;; xfns.c
-	     (x-bitmap-file-path installation
-				 (repeat (directory :format "%v")))))
+	     (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")))))
       this symbol group type)
   (while all 
     (setq this (car all)


-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
Thou Who might be our Father Who perhaps may be in Heaven...
                                                -- Roger Zelazny

