Fix bug in server.el introduced by 0d7d835902

0d7d835902 renamed 'server--process-filter' into
'server--process-filter-1' but updated the corresponding
'cl-return-from' tag to 'server--process-filter'.

* lisp/server.el (server--process-filter-1): Fix 'cl-return-from' tag.
This commit is contained in:
Andrea Corallo 2024-07-25 17:30:25 +02:00
parent af527051cd
commit fdc133e97f

View file

@ -1216,7 +1216,7 @@ The following commands are accepted by the client:
;; FIXME: Why do we wait 1s here but 5s in the other one?
(run-with-timer 1 nil #'delete-process proc)
;; We return immediately.
(cl-return-from server--process-filter)))
(cl-return-from server--process-filter-1)))
(let ((prev (process-get proc 'previous-string)))
(when prev
(setq string (concat prev string))