Define helper functions only if needed

* src/json.c (JSON_HAS_ERROR_CODE): New define.
(json_parse_error): Use it.
(json_has_prefix, json_has_suffix): Define only if needed.

diff --git a/src/json.c b/src/json.c
index 6d822224b217f12266c18528eafd97e2b616e941..48cf96a62b9f7e249b2925fa37eac25961b47ecd 100644 (file)
--- a/src/json.c
+++ b/src/json.c
@@ -30,6 +30,8 @@ along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.  */
 #include "buffer.h"
 #include "coding.h"
 
+#define JSON_HAS_ERROR_CODE (JANSSON_VERSION_HEX >= 0x020B00)
+
 #ifdef WINDOWSNT
 # include <windows.h>
 # include "w32.h"
@@ -179,6 +181,8 @@ init_json (void)
   json_set_alloc_funcs (json_malloc, json_free);
 }
 
+#if !JSON_HAS_ERROR_CODE
+
 /* Return whether STRING starts with PREFIX.  */
 
 static bool
@@ -200,6 +204,8 @@ json_has_suffix (const char *string, const char *suffix)
     && memcmp (string + string_len - suffix_len, suffix, suffix_len) == 0;
 }
 
+#endif
+
 /* Create a multibyte Lisp string from the UTF-8 string in
    [DATA, DATA + SIZE).  If the range [DATA, DATA + SIZE) does not
    contain a valid UTF-8 string, an unspecified string is
@@ -249,7 +255,7 @@ static _Noreturn void
 json_parse_error (const json_error_t *error)
 {
   Lisp_Object symbol;
-#if JANSSON_VERSION_HEX >= 0x020B00
+#if JSON_HAS_ERROR_CODE
   switch (json_error_code (error))
     {
     case json_error_premature_end_of_input: