--- a/lisp/w3/w3-cus.el	Mon Aug 13 08:53:21 2007 +0200
+++ b/lisp/w3/w3-cus.el	Mon Aug 13 08:53:38 2007 +0200
@@ -1,7 +1,7 @@
 ;;; w3-cus.el --- Customization support for Emacs-W3
 ;; Author: wmperry
-;; Created: 1997/03/14 06:51:36
-;; Version: 1.3
+;; Created: 1997/03/14 21:35:54
+;; Version: 1.4
 ;; Keywords: comm, help, hypermedia
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -32,9 +32,43 @@
   (if (and (featurep 'custom) (fboundp 'custom-declare-variable))
       nil ;; We've got what we needed
     ;; We have the old custom-library, hack around it!
+    (defmacro defgroup (&rest args)
+      nil)
     (defmacro defcustom (var value doc &rest args) 
       (` (defvar (, var) (, value) (, doc))))))
 
+(defgroup w3 nil
+  "Emacs-W3 - the web browser of choice."
+  :group 'hypermedia)
+
+(defgroup w3-files nil
+  "Emacs-W3 configuration files."
+  :group 'w3)
+
+(defgroup w3-images nil
+  "Controlling image handling."
+  :group 'w3)
+
+(defgroup w3-printing nil
+  "Various options for hardcopy from web pages."
+  :group 'w3)
+
+(defgroup w3-menus nil
+  "The look of menus in Emacs-W3"
+  :group 'w3)
+
+(defgroup w3-parsing nil
+  "Options relating to HTML parsing"
+  :group 'w3)
+
+(defgroup w3-display nil
+  "Variables relating to how web pages are displayed."
+  :group 'w3)
+
+(defgroup w3-hooks nil
+  "Hooks relating to Emacs-W3."
+  :group 'w3)
+
 ;;; File related variables
 (defcustom w3-configuration-directory "~/.w3/"
   "*Directory where Emacs-w3 can find its configuration files"