; Add comments about potential future Jansson flags

* src/json.c (Fjson_serialize, Fjson_insert): Add comments about
flags that we might potentially add in the future.

diff --git a/src/json.c b/src/json.c
index 72ca93f621b27fc50780daff0937f889e1f304cd..5849705952da42d8c3f90e278ed1c53565481043 100644 (file)
--- a/src/json.c
+++ b/src/json.c
@@ -415,6 +415,8 @@ each object.  */)
   json_t *json = lisp_to_json_toplevel (object);
   record_unwind_protect_ptr (json_release_object, json);
 
+  /* If desired, we might want to add the following flags:
+     JSON_DECODE_ANY, JSON_ALLOW_NUL.  */
   char *string = json_dumps (json, JSON_COMPACT);
   if (string == NULL)
     json_out_of_memory ();
@@ -494,6 +496,8 @@ OBJECT.  */)
   record_unwind_protect_ptr (json_release_object, json);
 
   struct json_insert_data data;
+  /* If desired, we might want to add the following flags:
+     JSON_DECODE_ANY, JSON_ALLOW_NUL.  */
   int status
     = json_dump_callback (json, json_insert_callback, &data, JSON_COMPACT);
   if (status == -1)