Function: eglot-booster--jsonrpc--json-read

eglot-booster--jsonrpc--json-read is a natively compiled function defined in eglot-booster.el.

Signature

(eglot-booster--jsonrpc--json-read ORIG-FUNC)

Documentation

Read JSON or bytecode, wrapping the ORIG-FUNC JSON reader.

Source Code

;; Defined in /nix/store/qd8jjgh8k2c0q3lbcy0sw59mn9h6khis-emacs-packages-deps/share/emacs/site-lisp/eglot-booster.el
(defun eglot-booster--jsonrpc--json-read (orig-func)
  "Read JSON or bytecode, wrapping the ORIG-FUNC JSON reader."
  (if eglot-booster-boosted ; local to process-buffer
      (or (and (= (following-char) ?#)
	       (let ((bytecode (read (current-buffer))))
		 (when (byte-code-function-p bytecode)
		   (funcall bytecode))))
	  (funcall orig-func))
    ;; Not in a boosted process, fallback
    (funcall orig-func)))