how to pull code out of custom-set-faces

[Xah Lee]

i have in my emacs init file these code:

(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(completions-common-part ((t (:inherit default :foreground "red"))))
 '(pp^L-highlight ((((type x w32 mac graphic) (class color))
(:underline "maroon"))))
 '(show-paren-match ((((class color) (background light)) (:background
"azure2")))))

how to pull the code into a normal elisp code?

for example, in custom-set-variables

(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(abbrev-mode t)
 '(ange-ftp-try-passive-mode nil)
 '(auto-save-default nil)
...
)

i can pull them out by replacing each line with the form:

(setq abbrev-mode t)

Thanks.

  Xah
∑ http://xahlee.org/

☄