procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(jsonrpc--log-event): Try and fix bug#68072

Browse source 
* lisp/jsonrpc.el (jsonrpc--log-event): Force the use of
`lisp-indent-function` in `pp-to-string`.
This commit is contained in:
Stefan Monnier 2024-01-07 00:02:08 -05:00
parent b5de9ae801
commit f866c85ac4
1 changed files with 11 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lisp/jsonrpc.el
View file

@ -1003,16 +1003,17 @@ of the API instead.")
(or method "")
(if id (format "[%s]" id) "")))))
(msg
(cond ((eq format 'full)
(format "%s%s\n" preamble (or json log-text)))
((eq format 'short)
(format "%s%s\n" preamble (or log-text "")))
(t
(format "%s%s" preamble
(or (and foreign-message
(concat "\n" (pp-to-string
foreign-message)))
(concat log-text "\n")))))))
(pcase format
('full (format "%s%s\n" preamble (or json log-text)))
('short (format "%s%s\n" preamble (or log-text "")))
(_
(format "%s%s" preamble
(or (and foreign-message
(let ((lisp-indent-function ;bug#68072
#'lisp-indent-function))
(concat "\n" (pp-to-string
foreign-message))))
(concat log-text "\n")))))))
(goto-char (point-max))
;; XXX: could use `run-at-time' to delay server logs
;; slightly to play nice with verbose servers' stderr.