; 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.

diff --git a/lisp/json.el b/lisp/json.el
index 1e724b42e751658f33c19c8e7ad5c399e7a97dc7..b13ec781b484d1b5e8cfa47f3555ca1319b33ec3 100644 (file)
--- a/lisp/json.el
+++ b/lisp/json.el
@@ -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."