From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 19 Mar 1996 22:47:22 +0000 (+0000)
Subject: (custom-face-hack): Avoid evalling the args
X-Git-Tag: emacs-19.34~1019
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e903507a24fe151635557ce8f87c3c6425cebbf7;p=emacs.git

(custom-face-hack): Avoid evalling the args
in the list that the export function returns.
---

diff --git a/lisp/custom.el b/lisp/custom.el
index cb566cf8fe7..686cc843cdf 100644
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -1504,8 +1504,8 @@ FG BG STIPPLE BOLD ITALIC UNDERLINE"
 (defun custom-face-hack (field value)
   "Face that should be used for highlighting FIELD containing VALUE."
   (let* ((custom (custom-field-custom field))
-	 (face (eval (funcall (custom-property custom 'export) 
-			      custom value))))
+	 (form (funcall (custom-property custom 'export) custom value))
+	 (face (apply (car form) (cdr form))))
     (if (custom-facep face) face nil)))
 
 (defun custom-const-insert (custom level)