Re: json.el speed-ups

[Stefan Monnier]

> I've been using the following mods to json.el with good results,
> am attaching diff output.

Please use unified diffs (or context diffs).

> <   (forward-char n))
> ---
>> (unless n (setq n 1))
>> (let ((goal (+ (point) n)))
>> (goto-char goal)
>> (when (< (point) goal)
>> (signal 'end-of-file nil))))

That looks OK, as long as the code doesn't catch `end-of-file' or
`end-of-buffer' explicitly elsewhere.

> 144c147,148
> <   (skip-syntax-forward " "))
> ---
>> (while (looking-at "[\t\r\n\f\b ]")
>> (goto-char (match-end 0))))

Using (skip-chars-forward "\t\r\n\f\b ") would make the diff more
obviously correct.  Have you checked that all those chars have the
"whitespace" syntax in the syntax-table?


        Stefan