Mercurial > emacs

changeset 14841:14bfa8383808

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(custom-face-hack): Avoid evalling the args in the list that the export function returns.
author Richard M. Stallman <rms@gnu.org>
date Tue, 19 Mar 1996 22:47:22 +0000
parents dfbf6fd50825
children e734731ef36f
files lisp/=custom.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/=custom.el	Tue Mar 19 20:05:11 1996 +0000
+++ b/lisp/=custom.el	Tue Mar 19 22:47:22 1996 +0000
@@ -1504,8 +1504,8 @@
 (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)