From xemacs-m  Wed Apr  9 18:53:14 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 SAA16620
	for <xemacs-beta@xemacs.org>; Wed, 9 Apr 1997 18:53:13 -0500 (CDT)
Received: (from hniksic@localhost)
          by jagor.srce.hr (8.8.5/8.8.4)
	  id BAA11442; Thu, 10 Apr 1997 01:53:13 +0200 (MET DST)
Sender: hniksic@public.srce.hr
To: XEmacs Developers <xemacs-beta@xemacs.org>
Subject: vrml-mode.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 01:53:12 +0200
Message-ID: <kigragjbvo7.fsf@jagor.srce.hr>
Lines: 75
X-Mailer: Gnus v5.4.42/XEmacs 19.15

--- vrml-mode.el.orig	Thu Apr 10 01:28:27 1997
+++ vrml-mode.el	Thu Apr 10 01:52:19 1997
@@ -44,14 +44,28 @@
 ;; User variables.
 ;;
 
-(defvar vrml-indent-level 3
-  "*Indentation of VRML statements with respect to containing block.")
+(defgroup vrml nil
+  "VRML Language"
+  :group 'languages)
+
+(defgroup vrml-mode nil
+  "VRML mode customization"
+  :group 'vrml
+  :prefix "vrml-")
+
+
+(defcustom vrml-indent-level 3
+  "*Indentation of VRML statements with respect to containing block."
+  :type 'integer
+  :group 'vrml-mode)
 
-(defvar vrml-auto-newline nil
+(defcustom vrml-auto-newline nil
   "*Non-nil means automatically newline before and after braces
-inserted in VRML code.")
+inserted in VRML code."
+  :type 'boolean
+  :group 'vrml-mode)
 
-(defvar vrml-tab-always-indent t
+(defcustom vrml-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
@@ -64,11 +78,17 @@
   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 'vrml-mode)
 
-(defvar vrml-use-hairy-comment-detector t
+(defcustom vrml-use-hairy-comment-detector t
   "*If not `nil', then the more complicated, but slower, comment
-detecting function is used.")
+detecting function is used."
+  :type 'boolean
+  :group 'vrml-mode)
 
 (defvar vrml-mode-abbrev-table nil
   "Abbrev table used while in VRML mode.")
@@ -115,8 +135,10 @@
   (modify-syntax-entry ?+ "." vrml-mode-syntax-table)
   (modify-syntax-entry ?\' "\"" vrml-mode-syntax-table))
 
-(defvar vrml-mode-hook nil
-  "Hook run on entry to VRML mode.")
+(defcustom vrml-mode-hook nil
+  "Hook run on entry to VRML mode."
+  :type 'hook
+  :group 'vrml-mode)
 
 (defvar vrml-keyword-list
   '(

-- 
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
The end of the world is coming...  SAVE YOUR BUFFERS!

