Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

; Partially revert previous commit

Browse source 
The reduction in was because I broke it.
* lisp/json.el (json-pop): Do not bind at compile time something needed
at run time.
This commit is contained in:
Mark Oteiza 2017-09-15 10:06:56 -04:00
parent 3b783a75ad
commit 1c70054750
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/json.el
View file

@ -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."