diff options
| -rw-r--r-- | lisp/=custom.el | 4 |
1 files 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) |