From: Mark Oteiza <mvoteiza@udel.edu>
Date: Fri, 15 Sep 2017 14:06:56 +0000 (-0400)
Subject: ; Partially revert previous commit
X-Git-Tag: emacs-26.0.90~173^2~4
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1c700547505dd7f2bf3800830e6b113f7248f528;p=emacs.git

; 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 1e724b42e75..b13ec781b48 100644
--- 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."