summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-10-26 04:35:55 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-10-26 04:35:55 +0200
commitc54c8f909e18734b38ee99149ddca29e4bd58ab0 (patch)
tree9d27972f3d81c28c73f839b547f76629984b3ea4
parent9753403103d7d309b87bfb6f0ba164a6b34e2e95 (diff)
downloadelibs-c54c8f909e18734b38ee99149ddca29e4bd58ab0.tar.gz
elibs-c54c8f909e18734b38ee99149ddca29e4bd58ab0.tar.bz2
themes: tweaks for recent emacs snapshot
-rw-r--r--themes/jao-themes.el24
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)