[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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 1c70054: ; Partially revert previous commit,
Mark Oteiza <=