diff options
| author | Dmitry Gutov <dgutov@yandex.ru> | 2015-03-23 18:00:39 +0200 |
|---|---|---|
| committer | Dmitry Gutov <dgutov@yandex.ru> | 2015-03-23 18:00:39 +0200 |
| commit | a50c95dbd24eb0e56ad0eb0f8ff2c013b5f92285 (patch) | |
| tree | 106628eb812555c6fdbe7e93767c30b71b1b3e22 /lisp/json.el | |
| parent | 24960fc72c5a6b7e97a25416ed986ca7054d1260 (diff) | |
| download | emacs-a50c95dbd24eb0e56ad0eb0f8ff2c013b5f92285.tar.gz | |
Get rid of json-decode-char0 as well
Fixes: debbugs:20154
* lisp/json.el (json-decode-char0): Delete this alias as well.
(json-read-escaped-char): Don't call it.
Diffstat (limited to 'lisp/json.el')
| -rw-r--r-- | lisp/json.el | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/lisp/json.el b/lisp/json.el index fb0f62c8777..a1e9bb78d11 100644 --- a/lisp/json.el +++ b/lisp/json.el @@ -52,12 +52,6 @@ ;;; Code: - -;; Compatibility code - -(defalias 'json-decode-char0 'decode-char) - - ;; Parameters (defvar json-object-type 'alist @@ -286,7 +280,7 @@ representation will be parsed correctly." ((looking-at "[0-9A-Fa-f][0-9A-Fa-f][0-9A-Fa-f][0-9A-Fa-f]") (let ((hex (match-string 0))) (json-advance 4) - (json-decode-char0 'ucs (string-to-number hex 16)))) + (string-to-number hex 16))) (t (signal 'json-string-escape (list (point))))))) |