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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f259ec2b3fae9410f466ba5606aaf6ec5eb66d7c..079a3feaea1b55da34cfc1d142dd5b54b9ff95bf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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).

diff --git a/lisp/json.el b/lisp/json.el
index f1ee3a5203215ea0129c85dbeddd35c0ea317351..1a70d0b40cea708378a081ada97bdcb5a9dffd60 100644 (file)
--- a/lisp/json.el
+++ b/lisp/json.el
@@ -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)))))