diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-03-19 22:47:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-03-19 22:47:22 +0000 |
| commit | f9591ea692d02a203bebd55caec3dae39fce50b9 (patch) | |
| tree | 7769531a280cdf5287704cfcd299dd2fa8bee639 | |
| parent | 8fe03af30523e0b10956c5fc67b60a15c3eac08f (diff) | |
| download | emacs-f9591ea692d02a203bebd55caec3dae39fce50b9.tar.gz | |
(custom-face-hack): Avoid evalling the args
in the list that the export function returns.
| -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) |