mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

Fix bug in server.el introduced by 0d7d835902

Browse Source 
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
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/server.el
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? ;; FIXME: Why do we wait 1s here but 5s in the other one?
(run-with-timer 1 nil #'delete-process proc) (run-with-timer 1 nil #'delete-process proc)
;; We return immediately. ;; We return immediately.
(cl-return-from server--process-filter))) (cl-return-from server--process-filter-1)))
(let ((prev (process-get proc 'previous-string))) (let ((prev (process-get proc 'previous-string)))
(when prev (when prev
(setq string (concat prev string)) (setq string (concat prev string))