procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/json.el (json-encode-char): Codes 128-160 aren't "ASCII printable".

Browse source
This commit is contained in:
Stefan Monnier 2012-09-27 09:10:54 -04:00
parent f077f61d68
commit 9cad61d6db
2 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2012-09-27 Stefan Monnier <monnier@iro.umontreal.ca>
* json.el (json-encode-char): Codes 128-160 aren't "ASCII printable".
2012-09-27 Glenn Morris <rgm@gnu.org>
* faces.el (x-display-name): Declare (for without-x builds).

8
lisp/json.el
View file

@ -311,13 +311,13 @@ representation will be parsed correctly."
(setq char (json-encode-char0 char 'ucs))
(let ((control-char (car (rassoc char json-special-chars))))
(cond
;; Special JSON character (\n, \r, etc.)
;; Special JSON character (\n, \r, etc.).
(control-char
(format "\\%c" control-char))
;; ASCIIish printable character
((and (> char 31) (< char 161))
;; ASCIIish printable character.
((and (> char 31) (< char 128))
(format "%c" char))
;; Fallback: UCS code point in \uNNNN form
;; Fallback: UCS code point in \uNNNN form.
(t
(format "\\u%04x" char)))))