andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix definition of whitespace in JSON

Browse source 
See
https://lists.gnu.org/archive/html/emacs-devel/2017-05/msg00115.html.

* lisp/json.el (json-skip-whitespace): Fix definition.
* test/lisp/json-tests.el (test-json-skip-whitespace): Adapt unit
test.
This commit is contained in:
Philipp Stephani 2017-05-20 17:49:06 +02:00
parent 140aefc341
commit 32f80eb678
2 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/json.el
View file

@ -206,7 +206,11 @@ Unlike `reverse', this keeps the property-value pairs intact."
(defun json-skip-whitespace ()
"Skip past the whitespace at point."
(skip-chars-forward "\t\r\n\f\b "))
;; See
;; https://www.ecma-international.org/publications/files/ECMA-ST/ECMA-404.pdf
;; or https://tools.ietf.org/html/rfc7159#section-2 for the
;; definition of whitespace in JSON.
(skip-chars-forward "\t\r\n "))

5
test/lisp/json-tests.el
View file

@ -89,7 +89,10 @@ Point is moved to beginning of the buffer."
(ert-deftest test-json-skip-whitespace ()
(json-tests--with-temp-buffer "\t\r\n\f\b { \"a\": 1 }"
(json-skip-whitespace)
(should (equal (char-after (point)) ?{))))
(should (equal (char-after) ?\f)))
(json-tests--with-temp-buffer "\t\r\n\t { \"a\": 1 }"
(json-skip-whitespace)
(should (equal (char-after) ?{))))
;;; Paths