Commit e903507a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(custom-face-hack): Avoid evalling the args

in the list that the export function returns.
parent 253996a8
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment