diff options
Diffstat (limited to 'lisp/json.el')
| -rw-r--r-- | lisp/json.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/json.el b/lisp/json.el index cd95ec28327..112f26944bf 100644 --- a/lisp/json.el +++ b/lisp/json.el | |||
| @@ -370,7 +370,7 @@ representation will be parsed correctly." | |||
| 370 | 370 | ||
| 371 | (defun json--decode-utf-16-surrogates (high low) | 371 | (defun json--decode-utf-16-surrogates (high low) |
| 372 | "Return the code point represented by the UTF-16 surrogates HIGH and LOW." | 372 | "Return the code point represented by the UTF-16 surrogates HIGH and LOW." |
| 373 | (+ (lsh (- high #xD800) 10) (- low #xDC00) #x10000)) | 373 | (+ (ash (- high #xD800) 10) (- low #xDC00) #x10000)) |
| 374 | 374 | ||
| 375 | (defun json-read-escaped-char () | 375 | (defun json-read-escaped-char () |
| 376 | "Read the JSON string escaped character at point." | 376 | "Read the JSON string escaped character at point." |