[Emacs-diffs] /srv/bzr/emacs/trunk r110227: * lisp/json.el (json-encode-char): Codes 128-160 aren't "ASCII printable".

[Stefan Monnier]

------------------------------------------------------------
revno: 110227
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Thu 2012-09-27 09:10:54 -0400
message:
  * lisp/json.el (json-encode-char): Codes 128-160 aren't "ASCII printable".
modified:
  lisp/ChangeLog
  lisp/json.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-09-27 07:28:48 +0000
+++ b/lisp/ChangeLog    2012-09-27 13:10:54 +0000
@@ -1,3 +1,7 @@
+2012-09-27  Stefan Monnier  <address@hidden>
+
+       * json.el (json-encode-char): Codes 128-160 aren't "ASCII printable".
+
 2012-09-27  Glenn Morris  <address@hidden>
 
        * faces.el (x-display-name): Declare (for without-x builds).

=== modified file 'lisp/json.el'
--- a/lisp/json.el      2012-08-22 01:29:22 +0000
+++ b/lisp/json.el      2012-09-27 13:10:54 +0000
@@ -311,13 +311,13 @@
   (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)))))