Commit 9cad61d6 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent f077f61d
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).
......
......@@ -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)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment