From xemacs-m  Tue Apr  8 03:16:11 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 DAA24041
	for <xemacs-beta@xemacs.org>; Tue, 8 Apr 1997 03:16:09 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id KAA00451; Tue, 8 Apr 1997 10:16:04 +0200 (MET DST)
Sender: hniksic@public.srce.hr
To: XEmacs Developers <xemacs-beta@xemacs.org>
Cc: daveg@synaptics.com
Subject: info.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 10:16:03 +0200
Message-ID: <kig3et2aq0s.fsf@jagor.srce.hr>
Lines: 144
X-Mailer: Gnus v5.4.42/XEmacs 19.15

Here is a patch to get the custom support in info.el:

--- info.el.orig	Tue Apr  8 10:05:40 1997
+++ info.el	Tue Apr  8 10:12:49 1997
@@ -290,49 +290,73 @@
 
 ;; Code:
 
-(defvar Info-inhibit-toolbar nil
-  "*Non-nil means don't use the specialized Info toolbar.")
-
-(defvar Info-novice nil
-  "*Non-nil means to ask for confirmation before switching Info files.")
+(defgroup info nil
+  "Info subsystem"
+  :group 'help)
+
+(defcustom Info-inhibit-toolbar nil
+  "*Non-nil means don't use the specialized Info toolbar."
+  :type 'boolean
+  :group 'info)
+
+(defcustom Info-novice nil
+  "*Non-nil means to ask for confirmation before switching Info files."
+  :type 'boolean
+  :group 'info)
 
 (defvar Info-history nil
   "List of info nodes user has visited.
 Each element of list is a list (\"(FILENAME)NODENAME\" BUFPOS WINSTART).")
 
-(defvar Info-keeping-history t
+(defcustom Info-keeping-history t
   "Non-nil if Info-find-node should modify Info-history.
-This is for use only by certain internal Info routines.")
+This is for use only by certain internal Info routines."
+  :type 'boolean
+  :group 'info)
 
-(defvar Info-enable-edit nil
+(defcustom Info-enable-edit nil
   "*Non-nil means the \\<Info-mode-map>\\[Info-edit] command in Info
 can edit the current node.
 This is convenient if you want to write info files by hand.
 However, we recommend that you not do this.
 It is better to write a Texinfo file and generate the Info file from that,
-because that gives you a printed manual as well.")
+because that gives you a printed manual as well."
+  :type 'boolean
+  :group 'info)
 
-(defvar Info-enable-active-nodes t
+(defcustom Info-enable-active-nodes t
   "*Non-nil allows Info to execute Lisp code associated with nodes.
-The Lisp code is executed when the node is selected.")
-
-(defvar Info-restoring-point t
-  "*Non-nil means to restore the cursor position when re-entering a node.")
+The Lisp code is executed when the node is selected."
+  :type 'boolean
+  :group 'info)
+
+(defcustom Info-restoring-point t
+  "*Non-nil means to restore the cursor position when re-entering a node."
+  :type 'boolean
+  :group 'info)
 
-(defvar Info-auto-advance 'twice
+(defcustom Info-auto-advance 'twice
   "*Control what SPC and DEL do when they can't scroll any further.
 If nil, they beep and remain in the current node.
 If t, they move to the next node (like Info-global-next/prev).
-If anything else, they must be pressed twice to move to the next node.")
+If anything else, they must be pressed twice to move to the next node."
+  :type '(radio (const :tag "off" nil)
+		(const :tag "advance" t)
+		(const :tag "confirm" twice))
+  :group 'info)
 
-(defvar Info-fontify t
+(defcustom Info-fontify t
   "*Non-nil enables font features in XEmacs.
-This variable is ignored unless running under XEmacs.")
+This variable is ignored unless running under XEmacs."
+  :type 'boolean
+  :group 'info)
 
-(defvar Info-default-directory-list nil
-  "List of default directories to search for Info documentation files.
+(defcustom Info-default-directory-list nil
+  "*List of default directories to search for Info documentation files.
 This value is used as the default for `Info-directory-list'.  It is set
-in startup.el.")
+in startup.el."
+  :type '(repeat directory)
+  :group 'info)
 
 (defvar Info-directory-list
   (let ((path (getenv "INFOPATH")))
@@ -350,16 +374,20 @@
 Default is to use the environment variable INFOPATH if it exists,
 else to use Info-default-directory-list.")
 
-(defvar Info-suffix-list '( (".info" . nil)
+(defcustom Info-suffix-list '( (".info" . nil)
 			    (".info.gz" . "gzip -dc %s")
 			    (".info-z" . "gzip -dc %s")
 			    (".info.Z" . "uncompress -c %s")
 			    (".gz" . "gzip -dc %s")
 			    (".Z" . "uncompress -c %s") )
-  "List of file name suffixes and associated decoding commands.
+  "*List of file name suffixes and associated decoding commands.
 Each entry should be (SUFFIX . STRING); if STRING contains %s, that is
 changed to name of the file to decode, otherwise the file is given to
-the command as standard input.  If STRING is nil, no decoding is done.")
+the command as standard input.  If STRING is nil, no decoding is done."
+  :type '(repeat (cons string
+		       (choice (const :tag "dont decode" nil) string)))
+  :group 'info)
+
 
 (defvar Info-footnote-tag "See"
   "*Symbol that identifies a footnote or cross-reference.
@@ -389,10 +417,12 @@
   "List of possible matches for last Info-index command.")
 (defvar Info-index-first-alternative nil)
 
-(defvar Info-annotations-path '("~/.infonotes" "/usr/lib/info.notes")
+(defcustom Info-annotations-path '("~/.infonotes" "/usr/lib/info.notes")
   "*Names of files that contain annotations for different Info nodes.
 By convention, the first one should reside in your personal directory.
-The last should be a world-writable \"public\" annotations file.")
+The last should be a world-writable \"public\" annotations file."
+  :type '(repeat file)
+  :group 'info)
 
 (defvar Info-standalone nil
   "Non-nil if Emacs was started solely as an Info browser.")


-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
ED WILL NOT CORRUPT YOUR PRECIOUS BODILY FLUIDS!!

