[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r110227: * lisp/json.el (json-encode-
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r110227: * lisp/json.el (json-encode-char): Codes 128-160 aren't "ASCII printable". |
Date: |
Thu, 27 Sep 2012 09:10:54 -0400 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
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)))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r110227: * lisp/json.el (json-encode-char): Codes 128-160 aren't "ASCII printable".,
Stefan Monnier <=