[elpa] externals/compat 740e975fbc 2/3: Add docstring

[ELPA Syncer]

branch: externals/compat
commit 740e975fbcb3079d1277f60c9438e46f146f0125
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Add docstring
---
 compat.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/compat.el b/compat.el
index 1e38672e45..d2c8bb875f 100644
--- a/compat.el
+++ b/compat.el
@@ -89,10 +89,14 @@ See also `compat-function' to lookup compatibility 
functions."
   (defvar json-object-type)
   (defvar json-key-type)
   (declare-function json-read nil)
-
   (declare-function compat--json--print nil)
+
   (unless (eval-when-compile (ignore-errors (eval '(json-parse-string "[]") 
t)))
     (defun compat--json--print (obj)
+      "Print OBJ to the current-buffer/standard-output.
+We provide our entire reimplementation of `json--print' and
+`json-encode', since the error checking and the format of
+libjansson and json.el differ too much."
       (cond
        ((numberp obj) (prin1 obj))
        ((eq obj t) (insert "true"))