diff options
Diffstat (limited to 'src/json.c')
| -rw-r--r-- | src/json.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/json.c b/src/json.c index 763f463aa4e..d30e82d8164 100644 --- a/src/json.c +++ b/src/json.c | |||
| @@ -1102,8 +1102,8 @@ define_error (Lisp_Object name, const char *message, Lisp_Object parent) | |||
| 1102 | eassert (CONSP (parent_conditions)); | 1102 | eassert (CONSP (parent_conditions)); |
| 1103 | eassert (!NILP (Fmemq (parent, parent_conditions))); | 1103 | eassert (!NILP (Fmemq (parent, parent_conditions))); |
| 1104 | eassert (NILP (Fmemq (name, parent_conditions))); | 1104 | eassert (NILP (Fmemq (name, parent_conditions))); |
| 1105 | Fput (name, Qerror_conditions, pure_cons (name, parent_conditions)); | 1105 | Fput (name, Qerror_conditions, Fcons (name, parent_conditions)); |
| 1106 | Fput (name, Qerror_message, build_pure_c_string (message)); | 1106 | Fput (name, Qerror_message, build_string (message)); |
| 1107 | } | 1107 | } |
| 1108 | 1108 | ||
| 1109 | void | 1109 | void |