[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#30489: 26.0.91; [PATCH] Data associated with json-readtable-error no
From: |
Noam Postavsky |
Subject: |
bug#30489: 26.0.91; [PATCH] Data associated with json-readtable-error not a list |
Date: |
Fri, 16 Mar 2018 19:47:18 -0400 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/26.0.90 (gnu/linux) |
"Basil L. Contovounesios" <contovob@tcd.ie> writes:
> @@ -685,7 +685,7 @@ json-readtable-dispatch
> (push (list c 'json-read-number) table))
> (pcase-dolist (`(,c . ,rest) table)
> (push `((eq ,char ,c) (,@rest)) res))
> - `(cond ,@res (t (signal 'json-readtable-error ,char)))))
> + `(cond ,@res (t (signal 'json-readtable-error ,(list char))))))
Actually, shouldn't this be (list ,char)?
Otherwise, I get this warning when compiling:
In end of data:
../../lisp/json.el:766:1:Warning: the function ‘char’ is not known to be
defined.