Commit 1c700547 authored by Mark Oteiza's avatar Mark Oteiza

; Partially revert previous commit

The reduction in was because I broke it.
* lisp/json.el (json-pop): Do not bind at compile time something needed
at run time.
parent 3b783a75
......@@ -197,12 +197,12 @@ Unlike `reverse', this keeps the property-value pairs intact."
(define-inline json-pop ()
"Advance past the character at point, returning it."
(inline-letevals ((char (json-peek)))
(inline-quote
(if (zerop ,char)
(inline-quote
(let ((char (json-peek)))
(if (zerop char)
(signal 'json-end-of-file nil)
(json-advance)
,char))))
char))))
(define-inline json-skip-whitespace ()
"Skip past the whitespace at point."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment