From xemacs-m  Wed Apr  9 17:25:47 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 RAA07406
	for <xemacs-beta@xemacs.org>; Wed, 9 Apr 1997 17:25:43 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id AAA06350; Thu, 10 Apr 1997 00:25:41 +0200 (MET DST)
Sender: hniksic@public.srce.hr
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: tcl.el is 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: 10 Apr 1997 00:25:40 +0200
Message-ID: <kig4tdfdeaj.fsf@jagor.srce.hr>
Lines: 164
X-Mailer: Gnus v5.4.42/XEmacs 19.15

The number of items is on the border of having to create a new group.
As I'm not familiar with the code, or the mode, it will have to be
done by someon else (hint, hint).

--- tcl.el.orig	Thu Apr 10 00:16:02 1997
+++ tcl.el	Thu Apr 10 00:23:34 1997
@@ -377,17 +377,27 @@
 ;; User variables.
 ;;
 
-(defvar tcl-indent-level 4
-  "*Indentation of Tcl statements with respect to containing block.")
+(defgroup tcl nil
+  "Tcl programming language"
+  :group 'languages)
+
+(defcustom tcl-indent-level 4
+  "*Indentation of Tcl statements with respect to containing block."
+  :type 'integer
+  :group 'tcl)
+
+(defcustom tcl-continued-indent-level 4
+  "*Indentation of continuation line relative to first line of command."
+  :type 'integer
+  :group 'tcl)
 
-(defvar tcl-continued-indent-level 4
-  "*Indentation of continuation line relative to first line of command.")
-
-(defvar tcl-auto-newline nil
+(defcustom tcl-auto-newline nil
   "*Non-nil means automatically newline before and after braces
-inserted in Tcl code.")
+inserted in Tcl code."
+  :type 'boolean
+  :group 'tcl)
 
-(defvar tcl-tab-always-indent t
+(defcustom tcl-tab-always-indent t
   "*Control effect of TAB key.
 If t (the default), always indent current line.
 If nil and point is not in the indentation area at the beginning of
@@ -400,48 +410,68 @@
   3. Move forward to start of comment, indenting if necessary.
   4. Move forward to end of line, indenting if necessary.
   5. Create an empty comment.
-  6. Move backward to start of comment, indenting if necessary.")
+  6. Move backward to start of comment, indenting if necessary."
+  :type '(choice (const :tag "on" t)
+		 (const :tag "off" nil)
+		 (const :tag "The Works" other))
+  :group 'tcl)
 
-(defvar tcl-use-hairy-comment-detector t
+(defcustom tcl-use-hairy-comment-detector t
   "*If not `nil', then the more complicated, but slower, comment
 detecting function is used.  This variable is only used in GNU Emacs
-19 (the fast function is always used elsewhere).")
+19 (the fast function is always used elsewhere)."
+  :type 'boolean
+  :group 'tcl)
 
-(defvar tcl-electric-hash-style 'smart
+(defcustom tcl-electric-hash-style 'smart
   "*Style of electric hash insertion to use.
 Possible values are 'backslash, meaning that `\\' quoting should be
 done; 'quote, meaning that `\"' quoting should be done; 'smart,
 meaning that the choice between 'backslash and 'quote should be
 made depending on the number of hashes inserted; or nil, meaning that
 no quoting should be done.  Any other value for this variable is
-taken to mean 'smart.  The default is 'smart.")
-
-(defvar tcl-help-directory-list nil
-  "*List of topmost directories containing TclX help files")
+taken to mean 'smart.  The default is 'smart."
+  :type '(choice (const backslash) (const quote) (const smart))
+  :group 'tcl)
+
+(defcustom tcl-help-directory-list nil
+  "*List of topmost directories containing TclX help files"
+  :type '(repeat directory)
+  :group 'tcl)
 
-(defvar tcl-use-smart-word-finder t
+(defcustom tcl-use-smart-word-finder t
   "*If not nil, use a better way of finding the current word when
-looking up help on a Tcl command.")
-
-(defvar tcl-application "wish"
-  "*Name of Tcl application to run in inferior Tcl mode.")
-
-(defvar tcl-command-switches nil
-  "*Switches to supply to `tcl-application'.")
+looking up help on a Tcl command."
+  :type 'boolean
+  :group 'tcl)
+
+(defcustom tcl-application "wish"
+  "*Name of Tcl application to run in inferior Tcl mode."
+  :type 'string
+  :group 'tcl)
+
+(defcustom tcl-command-switches nil
+  "*Switches to supply to `tcl-application'."
+  :type '(repeat string)
+  :group 'tcl)
 
-(defvar tcl-prompt-regexp "^\\(% \\|\\)"
+(defcustom tcl-prompt-regexp "^\\(% \\|\\)"
   "*If not nil, a regexp that will match the prompt in the inferior process.
 If nil, the prompt is the name of the application with \">\" appended.
 
 The default is \"^\\(% \\|\\)\", which will match the default primary
-and secondary prompts for tclsh and wish.")
+and secondary prompts for tclsh and wish."
+  :type 'regexp
+  :group 'tcl)
 
-(defvar inferior-tcl-source-command "source %s\n"
+(defcustom inferior-tcl-source-command "source %s\n"
   "*Format-string for building a Tcl command to load a file.
 This format string should use `%s' to substitute a file name
 and should result in a Tcl expression that will command the
 inferior Tcl to load that file.  The filename will be appropriately
-quoted for Tcl.")
+quoted for Tcl."
+  :type 'string
+  :group 'tcl)
 
 ;;
 ;; Keymaps, abbrevs, syntax tables.
@@ -623,7 +653,7 @@
 ;; Hooks and other customization.
 ;;
 
-(defvar tcl-mode-hook nil
+(defcustom tcl-mode-hook nil
   "Hook run on entry to Tcl mode.
 
 Several functions exist which are useful to run from your
@@ -646,11 +676,15 @@
 
 Emacs 18 users must use `setq':
 
-   (setq tcl-mode-hook (cons 'tcl-guess-application tcl-mode-hook))")
+   (setq tcl-mode-hook (cons 'tcl-guess-application tcl-mode-hook))"
+  :type 'hook
+  :group 'tcl)
 
 
-(defvar inferior-tcl-mode-hook nil
-  "Hook for customizing Inferior Tcl mode.")
+(defcustom inferior-tcl-mode-hook nil
+  "Hook for customizing Inferior Tcl mode."
+  :type 'hook
+  :group 'tcl)
 
 (defvar tcl-proc-list
   '("proc" "method" "itcl_class")

-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
Oh lord won't you buy me a color TV...

