Fix bug in server.el introduced by 0d7d835902df

0d7d835902df 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.

(cherry picked from commit fdc133e97f6527693571472d058beb0e4fb80343)

diff --git a/lisp/server.el b/lisp/server.el
index 27fbe95b64b24269a6ed9685fa1b5967e6c10dd9..abfd3d4d753d81c17ad9360e5ab785d2e4dca787 100644 (file)
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -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))