From e48eb34332dc91de823314090451459ba2ffacbf Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 18 Oct 2010 13:26:25 -0400 Subject: 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. --- lisp/cus-face.el | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lisp/cus-face.el') 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. -- cgit v1.2.1