From 1c700547505dd7f2bf3800830e6b113f7248f528 Mon Sep 17 00:00:00 2001 From: Mark Oteiza Date: Fri, 15 Sep 2017 10:06:56 -0400 Subject: [PATCH] ; 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. --- lisp/json.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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." -- 2.39.5