From xemacs-m  Mon Apr  7 20:17:08 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 UAA17455
	for <xemacs-beta@xemacs.org>; Mon, 7 Apr 1997 20:17:06 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id DAA23851; Tue, 8 Apr 1997 03:17:06 +0200 (MET DST)
Sender: hniksic@public.srce.hr
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: more custom
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 03:17:06 +0200
Message-ID: <kigohbqs48d.fsf@jagor.srce.hr>
Lines: 113

Two variables in help.el.  Now you'll be able to get back the old
Emacs behaviour of exiting help with `C-x 1' etc. with custom.

--- help.el.orig	Tue Apr  8 03:06:02 1997
+++ help.el	Tue Apr  8 03:10:25 1997
@@ -35,6 +35,10 @@
 ;; or run interpreted, but not when the compiled code is loaded.
 ;(eval-when-compile (require 'help-macro))
 
+(defgroup help-appearance nil
+  "Appearance of help buffers"
+  :group 'help)
+
 (defvar help-map (let ((map (make-sparse-keymap)))
                    (set-keymap-name map 'help-map)
                    (set-keymap-prompt
@@ -339,10 +343,12 @@
          (substitute-command-keys
           (gettext "  \\[scroll-other-window] to scroll the help."))))))
 
-(defvar help-selects-help-window t
+(defcustom help-selects-help-window t
   "*If nil, use the \"old Emacs\" behavior for Help buffers.
 This just displays the buffer in another window, rather than selecting
-the window.")
+the window."
+  :type 'boolean
+  :group 'help-appearance)
 
 ;; Use this function for displaying help when C-h something is pressed
 ;; or in similar situations.  Do *not* use it when you are displaying
@@ -745,9 +751,12 @@
 	      (set-syntax-table stab)))
 	(error nil))))
 
-(defvar describe-function-show-arglist t  ; default to nil for the non-hackers?
-  "*If true, then describe-function will show its arglist if the function is
-not an autoload.")
+;; default to nil for the non-hackers?
+(defcustom describe-function-show-arglist t
+  "*If non-nil, describe-function will show its arglist,
+unless the function is autoloaded."
+  :type 'boolean
+  :group 'help-appearance)
 
 (defun describe-function-find-file (function)
   (and (boundp 'load-history) ; not standardly bound in XEmacs


The other patch is customizing of auto-save.el:

--- auto-save.el.orig	Tue Apr  8 02:59:10 1997
+++ auto-save.el	Tue Apr  8 03:00:47 1997
@@ -99,7 +99,11 @@
 
 ;;;; CUSTOMIZATION =====================================================
 
-(defvar auto-save-directory nil
+(defgroup auto-save nil
+  "Autosaving with support for efs and /tmp"
+  :group 'data)
+
+(defcustom auto-save-directory nil
 
   ;;; Don't make this user-variable-p, it should be set in .emacs and
   ;;; left at that.  In particular, it should remain constant across
@@ -140,25 +144,35 @@
 as auto save file.
 
 See also variables `auto-save-directory-fallback',
-`efs-auto-save' and `efs-auto-save-remotely'.")
+`efs-auto-save' and `efs-auto-save-remotely'."
+  :type '(choice (const :tag "same as file" nil)
+		 directory)
+  :group 'auto-save)
+
 
-(defvar auto-save-hash-p nil
+(defcustom auto-save-hash-p nil
   "If non-nil, hashed autosave names of length 14 are used.
 This is to avoid autosave filenames longer than 14 characters.
 The directory used is `auto-save-hash-directory' regardless of
 `auto-save-directory'.
 Hashing defeats `recover-all-files', you have to recover files
-individually by doing `recover-file'.")
+individually by doing `recover-file'."
+  :type 'boolean
+  :group 'auto-save)
 
 ;;; This defvar is in efs.el now, but doesn't hurt to give it here as
 ;;; well so that loading first auto-save.el does not abort.
 (or (boundp 'efs-auto-save) (defvar efs-auto-save 0))
 (or (boundp 'efs-auto-save-remotely) (defvar efs-auto-save-remotely nil))
 
-(defvar auto-save-offer-delete nil
+(defcustom auto-save-offer-delete nil
   "*If non-nil, `recover-all-files' offers to delete autosave files
 that are out of date or were dismissed for recovering.
-Special value 'always deletes those files silently.")
+Special value 'always deletes those files silently."
+  :type '(choice (const :tag "on" t)
+		 (const :tag "off" nil)
+		 (const :tag "delete silently" always))
+  :group 'auto-save)
 
 ;;;; end of customization
 

-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
* Vi is the God of editors.
* Emacs is the editor of Gods.

