From: Basil L. Contovounesios <contovob@tcd.ie>
Date: Tue, 30 Jan 2018 11:10:14 +0000 (+0000)
Subject: ; Fix arglist doc of json parse functions
X-Git-Tag: emacs-27.0.90~5731
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f7c8a12b12f5344100d3da192c0ec80f69ed55a9;p=emacs.git

; Fix arglist doc of json parse functions

* src/json.c (Fjson_parse_string, Fjson_parse_buffer):
Fix "usage:" arglist doc.
---

diff --git a/src/json.c b/src/json.c
index 12ba7afa6a0..b046d34f667 100644
--- a/src/json.c
+++ b/src/json.c
@@ -740,7 +740,7 @@ object, all but the last one are ignored.  If STRING doesn't contain a
 valid JSON object, an error of type `json-parse-error' is signaled.
 The keyword argument `:object-type' specifies which Lisp type is used
 to represent objects; it can be `hash-table' or `alist'.
-usage: (string &key (OBJECT-TYPE \\='hash-table)) */)
+usage: (json-parse-string STRING &key (OBJECT-TYPE \\='hash-table))  */)
   (ptrdiff_t nargs, Lisp_Object *args)
 {
   ptrdiff_t count = SPECPDL_INDEX ();
@@ -813,7 +813,7 @@ DEFUN ("json-parse-buffer", Fjson_parse_buffer, Sjson_parse_buffer,
 This is similar to `json-parse-string', which see.  Move point after
 the end of the object if parsing was successful.  On error, point is
 not moved.
-usage: (&key (OBJECT-TYPE \\='hash-table))  */)
+usage: (json-parse-buffer &key (OBJECT-TYPE \\='hash-table))  */)
   (ptrdiff_t nargs, Lisp_Object *args)
 {
   ptrdiff_t count = SPECPDL_INDEX ();