summaryrefslogtreecommitdiff
path: root/lisp/cus-face.el
diff options
context:
space:
mode:
authorChong Yidong <cyd@stupidchicken.com>2010-10-18 13:26:25 -0400
committerChong Yidong <cyd@stupidchicken.com>2010-10-18 13:26:25 -0400
commite48eb34332dc91de823314090451459ba2ffacbf (patch)
tree263cbc88b4c9b51f8b3101c17ed3026bd94c9b37 /lisp/cus-face.el
parentdf987d70a30d886cf9a54b94b4ddcc88c965ce07 (diff)
downloademacs-e48eb34332dc91de823314090451459ba2ffacbf.tar.gz
Use unsafep to check for theme safety.
* cus-face.el (custom-theme-set-faces): Mark as a safe function. * custom.el (custom-theme-set-variables): Mark as a safe function. (load-theme): Check forms using unsafep.
Diffstat (limited to 'lisp/cus-face.el')
-rw-r--r--lisp/cus-face.el2
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/cus-face.el b/lisp/cus-face.el
index ebb20012afa..fd6db787d32 100644
--- a/lisp/cus-face.el
+++ b/lisp/cus-face.el
@@ -349,6 +349,8 @@ FACE's list property `theme-face' \(using `custom-push-theme')."
(put face 'face-override-spec nil)
(face-spec-set face spec t))))))))
+(put 'custom-theme-set-faces 'safe-function t)
+
;; XEmacs compability function. In XEmacs, when you reset a Custom
;; Theme, you have to specify the theme to reset it to. We just apply
;; the next theme.