2009-09-12

elisp: pulling code out of custom-set-faces

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/

No comments:

Post a Comment