       ) ;;end progn
   );; end if is-fontifiable-term-type
 
+(provide-theme 'jpw-cust-defaults-theme)
+(enable-theme 'jpw-cust-defaults-theme)
 
 (provide 'custom-set-defaults)
 

the value of VAL_EXPRESSION.  Note that this function partially-overrides
MAKE_DEFAULT_AND_EVAL_NOW (since it always makes the \"new\" value the
default).

Note that this function may require modification whenever
`custom-declare-variable' changes.
{jpw: 9/2004}"
  (apply 'custom-set-variables args)
  (while args
    (let ((entry (car args)))
      (if (listp entry)
          (let* ((symbol (nth 0 entry))
                 (value (get symbol 'saved-value))
                 )
            (if value
                (progn
                 (put symbol 'standard-value value)
                 (put symbol 'force-value nil)
                 (put symbol 'saved-value nil)
                 )) ;; end if
            );; end let*
        ));; end (let ... (if ...
    (setq args (cdr args))

(defun jpw-custom-set-faces-nonsaved  (&rest args)
  "Initializes the default value of a customizable face.

Calls `custom-set-faces' on the list of arguments, then passes
them to `custom-theme-set-faces' 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.
{jpw: 9/2004}"
  (apply 'custom-set-faces args)
  (apply 'custom-theme-set-faces 'jpw-cust-defaults-theme args)

  ;; The attempt to convert the saved value to the default value:
  (while args
    (let ((entry (car args)))
      (if (listp entry)
          (let* ((face (nth 0 entry))
                 (nuspec (nth 1 entry))
                 (spec (or (get face 'customized-face)
                           (get face 'saved-face)
                           nuspec
                           ))
                 )
            (if spec
                (progn
                  ;; The last arg changes the base-spec (i.e. the default
                  ;; one).
                  (face-spec-set face spec t)
                  (put face 'force-face nil)
                  (put face 'saved-face nil)
                  )) ;; end if
            );; end let*
        ));; end (let ... (if ...
    (setq args (cdr args))
