diff options
| author | Richard M. Stallman | 1996-03-19 22:47:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-03-19 22:47:22 +0000 |
| commit | e903507a24fe151635557ce8f87c3c6425cebbf7 (patch) | |
| tree | 01b6086eb18d03a476a27081ef9aa231031809a8 | |
| parent | 253996a89253500b04230f2f577cbc2d9714e470 (diff) | |
| download | emacs-e903507a24fe151635557ce8f87c3c6425cebbf7.tar.gz emacs-e903507a24fe151635557ce8f87c3c6425cebbf7.zip | |
(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" | |||
| 1504 | (defun custom-face-hack (field value) | 1504 | (defun custom-face-hack (field value) |
| 1505 | "Face that should be used for highlighting FIELD containing VALUE." | 1505 | "Face that should be used for highlighting FIELD containing VALUE." |
| 1506 | (let* ((custom (custom-field-custom field)) | 1506 | (let* ((custom (custom-field-custom field)) |
| 1507 | (face (eval (funcall (custom-property custom 'export) | 1507 | (form (funcall (custom-property custom 'export) custom value)) |
| 1508 | custom value)))) | 1508 | (face (apply (car form) (cdr form)))) |
| 1509 | (if (custom-facep face) face nil))) | 1509 | (if (custom-facep face) face nil))) |
| 1510 | 1510 | ||
| 1511 | (defun custom-const-insert (custom level) | 1511 | (defun custom-const-insert (custom level) |