From: Philipp Stephani <phst@google.com>
Date: Mon, 18 Dec 2017 23:03:05 +0000 (+0100)
Subject: ; Add comments about potential future Jansson flags
X-Git-Tag: emacs-27.0.90~6010
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=87bd1d914e856346c7d22bd080155362ce5ac02f;p=emacs.git

; 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 72ca93f621b..5849705952d 100644
--- 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)