[sawfish] removed unused :user-level from defcustom

[Christopher Bratusek <chrisb src gnome org>]

commit f101fcb1f06de78808a0efdbeb8678035c6c56d5
Author: Christopher Roy Bratusek <chris nanolx org>
Date:   Tue Nov 17 20:42:04 2009 +0100

    removed unused :user-level from defcustom

 ChangeLog                 |   12 ++++++++++++
 lisp/sawfish/wm/custom.jl |    4 +---
 themes/Crux/theme.jl      |    1 -
 themes/gradient/theme.jl  |    5 -----
 themes/mono/theme.jl      |    2 --
 themes/simple/theme.jl    |    2 --
 themes/smaker/theme.jl    |    2 --
 7 files changed, 13 insertions(+), 15 deletions(-)
---
diff --git a/ChangeLog b/ChangeLog
index 594bc63..83ea873 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -7,6 +7,18 @@
 			optional, enabled by default, configures ending message
 			shows how many buttons are configured to be supported
 
+	* README.IMPORTANT: updated
+
+	* po/POTFILES.in: added sawfish.wm.ext.apps-menu to the list
+
+	* lisp/sawfish/wm/custom.jl
+	* themes/Crux/theme.jl
+	* themes/gradient/theme.jl
+	* themes/mono/theme.jl
+	* themes/simple/theme.jl
+	* themes/smaker/theme.jl: removed user-level value of defcustom. Not used for years,
+	                          but still here, so it's gone now
+
 2009-11-14  Christopher Bratusek <zanghar freenet de>
 	* lisp/sawfish/wm/user.jl
 	* lisp/sawfish/wm/workspace.jl: removed display-message-with-timeout
diff --git a/lisp/sawfish/wm/custom.jl b/lisp/sawfish/wm/custom.jl
index 13e9b78..9cba39c 100644
--- a/lisp/sawfish/wm/custom.jl
+++ b/lisp/sawfish/wm/custom.jl
@@ -75,7 +75,7 @@
     "Lisp library storing default customization settings.")
 
   (define custom-quoted-keys
-    '(:group :require :type :options :range :depends :user-level
+    '(:group :require :type :options :range :depends
              :layout :widget-flags)
     "defcustom keys whose values are quoted by the macro expansion.")
 
@@ -85,8 +85,6 @@
 				(:type* . custom-type)
 				(:options . custom-options)
 				(:depends . custom-depends)
-				;; XXX not used anymore
-				(:user-level . custom-user-level)
 				(:set . custom-set)
 				(:get . custom-get)
 				(:widget . custom-widget)
diff --git a/themes/Crux/theme.jl b/themes/Crux/theme.jl
index b8cb7c9..1ffde5c 100644
--- a/themes/Crux/theme.jl
+++ b/themes/Crux/theme.jl
@@ -28,7 +28,6 @@
   "Accent color for focused windows (if unset uses the GTK+ selection color)."
   :type (optional color)
   :group (appearance Crux)
-  :user-level novice
   :after-set (lambda () (color-changed)))
 
 (defcustom Crux:show-window-icons nil
diff --git a/themes/gradient/theme.jl b/themes/gradient/theme.jl
index bbf955f..079572b 100644
--- a/themes/gradient/theme.jl
+++ b/themes/gradient/theme.jl
@@ -35,35 +35,30 @@
   :type symbol
   :options (horizontal vertical diagonal)
   :group (appearance gradient)
-  :user-level novice
   :after-set after-setting-frame-option)
 
 (defcustom gradient:normal-from-color (get-color "#b6b6b6")
   "`From' color of inactive frames in `gradient' frame style."
   :type color
   :group (appearance gradient)
-  :user-level novice
   :after-set after-setting-frame-option)
 
 (defcustom gradient:normal-to-color (get-color "#323232")
   "`To' color of inactive frames in `gradient' frame style."
   :type color
   :group (appearance gradient)
-  :user-level novice
   :after-set after-setting-frame-option)
 
 (defcustom gradient:active-from-color (get-color "#64b4df")
   "`From' color of active frames in `gradient' frame style."
   :type color
   :group (appearance gradient)
-  :user-level novice
   :after-set after-setting-frame-option)
 
 (defcustom gradient:active-to-color (get-color "#000030")
   "`To' color of active frames in `gradient' frame style."
   :type color
   :group (appearance gradient)
-  :user-level novice
   :after-set after-setting-frame-option)
 
 (defcustom gradient:save-memory t
diff --git a/themes/mono/theme.jl b/themes/mono/theme.jl
index 40c8403..7db24f1 100644
--- a/themes/mono/theme.jl
+++ b/themes/mono/theme.jl
@@ -25,14 +25,12 @@
   "Color of inactive frames (if unset use GTK+ background color)."
   :type (optional color)
   :group (appearance mono)
-  :user-level novice
   :after-set after-setting-frame-option)
 
 (defcustom mono:active-color nil
   "Color of active frames (if unset use GTK+ selection color)."
   :type (optional color)
   :group (appearance mono)
-  :user-level novice
   :after-set after-setting-frame-option)
 
 (defcustom mono:text-justify 'left
diff --git a/themes/simple/theme.jl b/themes/simple/theme.jl
index 619731a..8ceccca 100644
--- a/themes/simple/theme.jl
+++ b/themes/simple/theme.jl
@@ -25,14 +25,12 @@
   "Color of inactive frames in `simple' frame style."
   :type color
   :group (appearance simple)
-  :user-level novice
   :after-set after-setting-frame-option)
 
 (defcustom simple:active-color "goldenrod"
   "Color of active frames in `simple' frame style."
   :type color
   :group (appearance simple)
-  :user-level novice
   :after-set after-setting-frame-option)
 
 (let*
diff --git a/themes/smaker/theme.jl b/themes/smaker/theme.jl
index 47fe801..4ecc5b6 100644
--- a/themes/smaker/theme.jl
+++ b/themes/smaker/theme.jl
@@ -24,13 +24,11 @@
 (defcustom smaker:inverted-buttons nil
   "Use black-on-white button images."
   :group (appearance smaker)
-  :user-level novice
   :type boolean)
 
 (defcustom smaker:fg-color "white"
   "Color to use when drawing text."
   :group (appearance smaker)
-  :user-level novice
   :type color)
 
 (defcustom smaker:bar-normal "bar_normal.png"