diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-10-26 04:35:55 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-10-26 04:35:55 +0200 |
| commit | c54c8f909e18734b38ee99149ddca29e4bd58ab0 (patch) | |
| tree | 9d27972f3d81c28c73f839b547f76629984b3ea4 | |
| parent | 9753403103d7d309b87bfb6f0ba164a6b34e2e95 (diff) | |
| download | elibs-c54c8f909e18734b38ee99149ddca29e4bd58ab0.tar.gz elibs-c54c8f909e18734b38ee99149ddca29e4bd58ab0.tar.bz2 | |
themes: tweaks for recent emacs snapshot
| -rw-r--r-- | themes/jao-themes.el | 24 |
1 files changed, 13 insertions, 11 deletions
diff --git a/themes/jao-themes.el b/themes/jao-themes.el index bcedc36..4411a40 100644 --- a/themes/jao-themes.el +++ b/themes/jao-themes.el @@ -664,17 +664,19 @@ (faces (cdr (assoc :faces args))) (x-faces (cdr (assoc :x-faces args))) (x-colors (cdr (assoc :x-colors args)))) - `(let* ,(jao-themes--let-palette palette nil) - (jao-themes--set-fbg nil) - (let ((,t-faces (jao-themes--make-faces ',faces))) - (let* ,(jao-themes--let-palette palette t) - (jao-themes--set-fbg 'x) - (let* ((,xfaces (jao-themes--make-faces ',x-faces ',x-colors)) - (,tx-faces (jao-themes--extract-faces ,t-faces ,xfaces))) - (deftheme ,name) - (put ',name 'theme-immediate t) - (apply 'custom-theme-set-faces (cons ',name ,tx-faces)) - (provide-theme ',name))))))) + `(progn + (custom-make-theme-feature ',name) + (deftheme ,name) + (let* ,(jao-themes--let-palette palette nil) + (jao-themes--set-fbg nil) + (let ((,t-faces (jao-themes--make-faces ',faces))) + (let* ,(jao-themes--let-palette palette t) + (jao-themes--set-fbg 'x) + (let* ((,xfaces (jao-themes--make-faces ',x-faces ',x-colors)) + (,tx-faces (jao-themes--extract-faces ,t-faces ,xfaces))) + (put ',name 'theme-immediate t) + (apply 'custom-theme-set-faces (cons ',name ,tx-faces))))) + (provide-theme ',name))))) (put 'jao-define-custom-theme 'lisp-indent-function 1) |