From f9591ea692d02a203bebd55caec3dae39fce50b9 Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Tue, 19 Mar 1996 22:47:22 +0000
Subject: (custom-face-hack): Avoid evalling the args in the list that the
 export function returns.

---
 lisp/=custom.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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)
-- 
cgit v1.2.1