* lisp/json.el (json-encode-char): Codes 127 isn't "ASCII printable" either.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 079a3feaea1b55da34cfc1d142dd5b54b9ff95bf..1c9c7c3c449d461b30396dc6246c8c2a050fac8d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,6 @@
 2012-09-27  Stefan Monnier  <monnier@iro.umontreal.ca>
 
-       * json.el (json-encode-char): Codes 128-160 aren't "ASCII printable".
+       * json.el (json-encode-char): Codes 127-160 aren't "ASCII printable".
 
 2012-09-27  Glenn Morris  <rgm@gnu.org>
 

diff --git a/lisp/json.el b/lisp/json.el
index 1a70d0b40cea708378a081ada97bdcb5a9dffd60..8167bfe93f2c99874ab137385b4c0408866dfecf 100644 (file)
--- a/lisp/json.el
+++ b/lisp/json.el
@@ -315,7 +315,7 @@ representation will be parsed correctly."
      (control-char
       (format "\\%c" control-char))
      ;; ASCIIish printable character.
-     ((and (> char 31) (< char 128))
+     ((and (> char 31) (< char 127))
       (format "%c" char))
      ;; Fallback: UCS code point in \uNNNN form.
      (t