 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 
+(deftheme jpw-cust-defaults-theme
+  "A theme containing all of the customization variables & faces defaults that
+I use.
+
+{jpw: 12/2012}")
+
+
 (defun jpw-custom-set-variables-nonsaved  (&rest args)
   "Initializes the default value of a customization variable.
 
-Calls `custom-set-variables' on the list of arguments, then converts the
-\"saved value\" to the \"default value\".  This prevents localized
-customizations from being written to your \".emacs\" file.
+Calls `custom-set-variables' on the list of arguments, then
+passes them to `custom-theme-set-variables' using the
+`jpw-cust-defaults-theme'.
+
+Lastly, it attempts to convert the \"saved value\" to the \"default value\".
+This is in hope that localized customizations won't be written to your
+\".emacs\" file in older versions of Emacs.
 
 `args' is a list of lists of the form:
 

(jpw-custom-set-variables-nonsaved
 '(case-fold-search t)
 '(confirm-kill-emacs (quote y-or-n-p))
 '(default-major-mode (quote text-mode)) ;; obsolete since 23.2
 '(major-mode (quote text-mode)) ;; replacement for `default-major-mode'
 '(history-delete-duplicates t)
 '(revert-without-query (quote (".*")))
 '(enable-local-eval t)

           '(region ((t (:background "LightBlue"))))
           '(highlight ((t (:background "Gray"))))
           '(underline ((t (:underline "purple4"))))

           ;; Faces that inherit from others.
           '(font-lock-doc-face
             ((t (:inherit font-lock-comment-face :background "azure"))))
