emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 1c70054: ; Partially revert previous commit


From: Mark Oteiza
Subject: [Emacs-diffs] master 1c70054: ; Partially revert previous commit
Date: Fri, 15 Sep 2017 10:08:01 -0400 (EDT)

branch: master
commit 1c700547505dd7f2bf3800830e6b113f7248f528
Author: Mark Oteiza <address@hidden>
Commit: Mark Oteiza <address@hidden>

    ; 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 1e724b4..b13ec78 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."



reply via email to

[Prev in Thread] Current Thread [Next in Thread]