Debugger entered--Lisp error: (wrong-type-argument stringp nil) isearch-done(t) isearch-cancel() (progn (isearch-cancel)) (if (and (boundp (quote isearch-mode)) isearch-mode) (progn (isearch-cancel))) (save-current-buffer (set-buffer buffer) (if (and (boundp (quote isearch-mode)) isearch-mode) (progn (isearch-cancel)))) (let ((buffer (car --dolist-tail--))) (save-current-buffer (set-buffer buffer) (if (and (boundp (quote isearch-mode)) isearch-mode) (progn (isearch-cancel)))) (setq --dolist-tail-- (cdr --dolist-tail--))) (while --dolist-tail-- (let ((buffer (car --dolist-tail--))) (save-current-buffer (set-buffer buffer) (if (and (boundp (quote isearch-mode)) isearch-mode) (progn (isearch-cancel)))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (let ((--dolist-tail-- (buffer-list))) (while --dolist-tail-- (let ((buffer (car --dolist-tail--))) (save-current-buffer (set-buffer buffer) (if (and (boundp (quote isearch-mode)) isearch-mode) (progn (isearch-cancel)))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (condition-case nil (let ((--dolist-tail-- (buffer-list))) (while --dolist-tail-- (let ((buffer (car --dolist-tail--))) (save-current-buffer (set-buffer buffer) (if (and (boundp ...) isearch-mode) (progn (isearch-cancel)))) (setq --dolist-tail-- (cdr --dolist-tail--))))) (quit (message nil))) server-goto-toplevel(#>) (progn (server-goto-toplevel proc)) (if (or frame files) (progn (server-goto-toplevel proc))) (let ((request (substring string 0 (match-beginning 0))) (coding-system (and (default-value (quote enable-multibyte-characters)) (or file-name-coding-system default-file-name-coding-system))) nowait frame display parent-id dontkill commands dir use-current-frame frame-parameters tty-name tty-type files filepos args-left) (setq string (substring string (match-end 0))) (setq args-left (mapcar (quote server-unquote-arg) (split-string request " " t))) (while args-left (let* ((val (car-safe (prog1 args-left (setq args-left ...))))) (cond ((equal val (quote "-version")) (let nil (car-safe (prog1 args-left ...)))) ((equal val (quote "-nowait")) (let nil (setq nowait t))) ((equal val (quote "-current-frame")) (let nil (setq use-current-frame t))) ((equal val (quote "-frame-parameters")) (let nil (let (...) (if coding-system ...) (setq frame-parameters ...)))) ((equal val (quote "-display")) (let nil (setq display (car-safe ...)) (if (= 0 ...) (setq display nil)))) ((equal val (quote "-parent-id")) (let nil (setq parent-id (car-safe ...)) (if (= 0 ...) (setq parent-id nil)))) ((equal val (quote "-window-system")) (let nil (if (fboundp ...) (setq dontkill t tty-name ...)))) ((equal val (quote "-resume")) (let nil (let (...) (setq dontkill t) (setq commands ...)))) ((equal val (quote "-suspend")) (let nil (let (...) (setq dontkill t) (setq commands ...)))) ((equal val (quote "-ignore")) (let nil (setq dontkill t) (car-safe (prog1 args-left ...)))) ((equal val (quote "-tty")) (let nil (setq tty-name (car-safe ...) tty-type (car-safe ...) dontkill (or dontkill ...)) (if (and ... ...) (progn ...)))) ((equal val (quote "-position")) (let nil (if (not ...) (error "Invalid -position command in client args")) (let (...) (setq filepos ...)))) ((equal val (quote "-file")) (let nil (let (...) (if coding-system ...) (if ... ...) (setq file ...) (setq files ...) (server-log ... proc)) (setq filepos nil))) ((equal val (quote "-eval")) (let nil (if use-current-frame (setq use-current-frame ...)) (let (...) (if coding-system ...) (setq commands ...) (setq filepos nil)))) ((equal val (quote "-env")) (let nil (let (...) (process-put proc ... ...)))) ((equal val (quote "-dir")) (let nil (setq dir (car-safe ...)) (if coding-system (setq dir ...)) (setq dir (command-line-normalize-file-name dir)) (process-put proc (quote server-client-directory) dir))) (t (let ((arg val)) (error "Unknown command: %s" arg)))))) (and nowait (not (eq tty-name (quote window-system))) (or files commands) (setq use-current-frame t)) (setq frame (cond ((and use-current-frame (or (eq use-current-frame (quote always)) (not (and ... ... ...)))) (setq tty-name nil tty-type nil) (if display (server-select-display display))) ((or (and (eq system-type (quote windows-nt)) (daemonp) (setq display "w32")) (eq tty-name (quote window-system))) (server-create-window-system-frame display nowait proc parent-id frame-parameters)) (tty-name (server-create-tty-frame tty-name tty-type proc)))) (process-put proc (quote continuation) (function (lambda nil (save-current-buffer (set-buffer (get-buffer-create server-buffer)) (let ((default-directory ...)) (server-execute proc files nowait commands dontkill frame tty-name)))))) (if (or frame files) (progn (server-goto-toplevel proc))) (server-execute-continuation proc)) (if (not (string-match "\n" string)) (if (> (length string) 0) (progn (process-put proc (quote previous-string) string))) (progn (or (eq (match-end 0) (length string)) (cl--assertion-failed (quote (eq (match-end 0) (length string))))) nil) (let ((request (substring string 0 (match-beginning 0))) (coding-system (and (default-value (quote enable-multibyte-characters)) (or file-name-coding-system default-file-name-coding-system))) nowait frame display parent-id dontkill commands dir use-current-frame frame-parameters tty-name tty-type files filepos args-left) (setq string (substring string (match-end 0))) (setq args-left (mapcar (quote server-unquote-arg) (split-string request " " t))) (while args-left (let* ((val (car-safe (prog1 args-left ...)))) (cond ((equal val (quote "-version")) (let nil (car-safe ...))) ((equal val (quote "-nowait")) (let nil (setq nowait t))) ((equal val (quote "-current-frame")) (let nil (setq use-current-frame t))) ((equal val (quote "-frame-parameters")) (let nil (let ... ... ...))) ((equal val (quote "-display")) (let nil (setq display ...) (if ... ...))) ((equal val (quote "-parent-id")) (let nil (setq parent-id ...) (if ... ...))) ((equal val (quote "-window-system")) (let nil (if ... ...))) ((equal val (quote "-resume")) (let nil (let ... ... ...))) ((equal val (quote "-suspend")) (let nil (let ... ... ...))) ((equal val (quote "-ignore")) (let nil (setq dontkill t) (car-safe ...))) ((equal val (quote "-tty")) (let nil (setq tty-name ... tty-type ... dontkill ...) (if ... ...))) ((equal val (quote "-position")) (let nil (if ... ...) (let ... ...))) ((equal val (quote "-file")) (let nil (let ... ... ... ... ... ...) (setq filepos nil))) ((equal val (quote "-eval")) (let nil (if use-current-frame ...) (let ... ... ... ...))) ((equal val (quote "-env")) (let nil (let ... ...))) ((equal val (quote "-dir")) (let nil (setq dir ...) (if coding-system ...) (setq dir ...) (process-put proc ... dir))) (t (let (...) (error "Unknown command: %s" arg)))))) (and nowait (not (eq tty-name (quote window-system))) (or files commands) (setq use-current-frame t)) (setq frame (cond ((and use-current-frame (or (eq use-current-frame ...) (not ...))) (setq tty-name nil tty-type nil) (if display (server-select-display display))) ((or (and (eq system-type ...) (daemonp) (setq display "w32")) (eq tty-name (quote window-system))) (server-create-window-system-frame display nowait proc parent-id frame-parameters)) (tty-name (server-create-tty-frame tty-name tty-type proc)))) (process-put proc (quote continuation) (function (lambda nil (save-current-buffer (set-buffer (get-buffer-create server-buffer)) (let (...) (server-execute proc files nowait commands dontkill frame tty-name)))))) (if (or frame files) (progn (server-goto-toplevel proc))) (server-execute-continuation proc))) (progn (server-add-client proc) (server-send-string proc (concat "-emacs-pid " (number-to-string (emacs-pid)) "\n")) (if (not (string-match "\n" string)) (if (> (length string) 0) (progn (process-put proc (quote previous-string) string))) (progn (or (eq (match-end 0) (length string)) (cl--assertion-failed (quote (eq (match-end 0) (length string))))) nil) (let ((request (substring string 0 (match-beginning 0))) (coding-system (and (default-value (quote enable-multibyte-characters)) (or file-name-coding-system default-file-name-coding-system))) nowait frame display parent-id dontkill commands dir use-current-frame frame-parameters tty-name tty-type files filepos args-left) (setq string (substring string (match-end 0))) (setq args-left (mapcar (quote server-unquote-arg) (split-string request " " t))) (while args-left (let* ((val (car-safe ...))) (cond ((equal val ...) (let nil ...)) ((equal val ...) (let nil ...)) ((equal val ...) (let nil ...)) ((equal val ...) (let nil ...)) ((equal val ...) (let nil ... ...)) ((equal val ...) (let nil ... ...)) ((equal val ...) (let nil ...)) ((equal val ...) (let nil ...)) ((equal val ...) (let nil ...)) ((equal val ...) (let nil ... ...)) ((equal val ...) (let nil ... ...)) ((equal val ...) (let nil ... ...)) ((equal val ...) (let nil ... ...)) ((equal val ...) (let nil ... ...)) ((equal val ...) (let nil ...)) ((equal val ...) (let nil ... ... ... ...)) (t (let ... ...))))) (and nowait (not (eq tty-name (quote window-system))) (or files commands) (setq use-current-frame t)) (setq frame (cond ((and use-current-frame (or ... ...)) (setq tty-name nil tty-type nil) (if display (server-select-display display))) ((or (and ... ... ...) (eq tty-name ...)) (server-create-window-system-frame display nowait proc parent-id frame-parameters)) (tty-name (server-create-tty-frame tty-name tty-type proc)))) (process-put proc (quote continuation) (function (lambda nil (save-current-buffer (set-buffer ...) (let ... ...))))) (if (or frame files) (progn (server-goto-toplevel proc))) (server-execute-continuation proc)))) (condition-case err (progn (server-add-client proc) (server-send-string proc (concat "-emacs-pid " (number-to-string (emacs-pid)) "\n")) (if (not (string-match "\n" string)) (if (> (length string) 0) (progn (process-put proc (quote previous-string) string))) (progn (or (eq (match-end 0) (length string)) (cl--assertion-failed (quote (eq ... ...)))) nil) (let ((request (substring string 0 (match-beginning 0))) (coding-system (and (default-value ...) (or file-name-coding-system default-file-name-coding-system))) nowait frame display parent-id dontkill commands dir use-current-frame frame-parameters tty-name tty-type files filepos args-left) (setq string (substring string (match-end 0))) (setq args-left (mapcar (quote server-unquote-arg) (split-string request " " t))) (while args-left (let* ((val ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (t ...)))) (and nowait (not (eq tty-name (quote window-system))) (or files commands) (setq use-current-frame t)) (setq frame (cond ((and use-current-frame ...) (setq tty-name nil tty-type nil) (if display ...)) ((or ... ...) (server-create-window-system-frame display nowait proc parent-id frame-parameters)) (tty-name (server-create-tty-frame tty-name tty-type proc)))) (process-put proc (quote continuation) (function (lambda nil (save-current-buffer ... ...)))) (if (or frame files) (progn (server-goto-toplevel proc))) (server-execute-continuation proc)))) (error (server-return-error proc err))) (catch (quote --cl-block-server-process-filter--) (server-log (concat "Received " string) proc) (if (process-get proc :authenticated) nil (if (and (string-match "-auth \\([!-~]+\\)\n?" string) (equal (match-string 1 string) (process-get proc :auth-key))) (progn (setq string (substring string (match-end 0))) (process-put proc :authenticated t) (server-log "Authentication successful" proc)) (server-log "Authentication failed" proc) (server-send-string proc (concat "-error " (server-quote-arg "Authentication failed"))) (sit-for 1) (delete-process proc) (throw (quote --cl-block-server-process-filter--) nil))) (let ((prev (process-get proc (quote previous-string)))) (if prev (progn (setq string (concat prev string)) (process-put proc (quote previous-string) nil)))) (condition-case err (progn (server-add-client proc) (server-send-string proc (concat "-emacs-pid " (number-to-string (emacs-pid)) "\n")) (if (not (string-match "\n" string)) (if (> (length string) 0) (progn (process-put proc (quote previous-string) string))) (progn (or (eq (match-end 0) (length string)) (cl--assertion-failed (quote ...))) nil) (let ((request (substring string 0 ...)) (coding-system (and ... ...)) nowait frame display parent-id dontkill commands dir use-current-frame frame-parameters tty-name tty-type files filepos args-left) (setq string (substring string (match-end 0))) (setq args-left (mapcar (quote server-unquote-arg) (split-string request " " t))) (while args-left (let* (...) (cond ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...))) (and nowait (not (eq tty-name ...)) (or files commands) (setq use-current-frame t)) (setq frame (cond (... ... ...) (... ...) (tty-name ...))) (process-put proc (quote continuation) (function (lambda nil ...))) (if (or frame files) (progn (server-goto-toplevel proc))) (server-execute-continuation proc)))) (error (server-return-error proc err)))) (closure (t) (proc string) "Process a request from the server to edit some files.\nPROC is the server process. STRING consists of a sequence of\ncommands prefixed by a dash. Some commands have arguments;\nthese are &-quoted and need to be decoded by `server-unquote-arg'.\nThe filter parses and executes these commands.\n\nTo illustrate the protocol, here is an example command that\nemacsclient sends to create a new X frame (note that the whole\nsequence is sent on a single line):\n\n -env HOME=/home/lorentey\n -env DISPLAY=:0.0\n ... lots of other -env commands\n -display :0.0\n -window-system\n\nThe following commands are accepted by the server:\n\n`-auth AUTH-STRING'\n Authenticate the client using the secret authentication string\n AUTH-STRING.\n\n`-env NAME=VALUE'\n An environment variable on the client side.\n\n`-dir DIRNAME'\n The current working directory of the client process.\n\n`-current-frame'\n Forbid the creation of new frames.\n\n`-frame-parameters ALIST'\n Set the parameters of the created frame.\n\n`-nowait'\n Request that the next frame created should not be\n associated with this client.\n\n`-display DISPLAY'\n Set the display name to open X frames on.\n\n`-position LINE[:COLUMN]'\n Go to the given line and column number\n in the next file opened.\n\n`-file FILENAME'\n Load the given file in the current frame.\n\n`-eval EXPR'\n Evaluate EXPR as a Lisp expression and return the\n result in -print commands.\n\n`-window-system'\n Open a new X frame.\n\n`-tty DEVICENAME TYPE'\n Open a new tty frame at the client.\n\n`-suspend'\n Suspend this tty frame. The client sends this string in\n response to SIGTSTP and SIGTTOU. The server must cease all I/O\n on this tty until it gets a -resume command.\n\n`-resume'\n Resume this tty frame. The client sends this string when it\n gets the SIGCONT signal and it is the foreground process on its\n controlling tty.\n\n`-ignore COMMENT'\n Do nothing, but put the comment in the server log.\n Useful for debugging.\n\n\nThe following commands are accepted by the client:\n\n`-emacs-pid PID'\n Describes the process id of the Emacs process;\n used to forward window change signals to it.\n\n`-window-system-unsupported'\n Signals that the server does not support creating X frames;\n the client must try again with a tty frame.\n\n`-print STRING'\n Print STRING on stdout. Used to send values\n returned by -eval.\n\n`-print-nonl STRING'\n Print STRING on stdout. Used to continue a\n preceding -print command that would be too big to send\n in a single message.\n\n`-error DESCRIPTION'\n Signal an error and delete process PROC.\n\n`-suspend'\n Suspend this terminal, i.e., stop the client process.\n Sent when the user presses C-z." (catch (quote --cl-block-server-process-filter--) (server-log (concat "Received " string) proc) (if (process-get proc :authenticated) nil (if (and (string-match "-auth \\([!-~]+\\)\n?" string) (equal (match-string 1 string) (process-get proc :auth-key))) (progn (setq string (substring string (match-end 0))) (process-put proc :authenticated t) (server-log "Authentication successful" proc)) (server-log "Authentication failed" proc) (server-send-string proc (concat "-error " (server-quote-arg "Authentication failed"))) (sit-for 1) (delete-process proc) (throw (quote --cl-block-server-process-filter--) nil))) (let ((prev (process-get proc (quote previous-string)))) (if prev (progn (setq string (concat prev string)) (process-put proc (quote previous-string) nil)))) (condition-case err (progn (server-add-client proc) (server-send-string proc (concat "-emacs-pid " (number-to-string (emacs-pid)) "\n")) (if (not (string-match "\n" string)) (if (> (length string) 0) (progn (process-put proc ... string))) (progn (or (eq ... ...) (cl--assertion-failed ...)) nil) (let ((request ...) (coding-system ...) nowait frame display parent-id dontkill commands dir use-current-frame frame-parameters tty-name tty-type files filepos args-left) (setq string (substring string ...)) (setq args-left (mapcar ... ...)) (while args-left (let* ... ...)) (and nowait (not ...) (or files commands) (setq use-current-frame t)) (setq frame (cond ... ... ...)) (process-put proc (quote continuation) (function ...)) (if (or frame files) (progn ...)) (server-execute-continuation proc)))) (error (server-return-error proc err)))))(#> "-auth CeLJjxqPh;g)}c&lFS%D/n\\H~I8? -dir /home/liveuser/ -current-frame -tty /dev/pts/1 xterm-256color -file file.txt \n") ad-Advice-server-process-filter((closure (t) (proc string) "Process a request from the server to edit some files.\nPROC is the server process. STRING consists of a sequence of\ncommands prefixed by a dash. Some commands have arguments;\nthese are &-quoted and need to be decoded by `server-unquote-arg'.\nThe filter parses and executes these commands.\n\nTo illustrate the protocol, here is an example command that\nemacsclient sends to create a new X frame (note that the whole\nsequence is sent on a single line):\n\n -env HOME=/home/lorentey\n -env DISPLAY=:0.0\n ... lots of other -env commands\n -display :0.0\n -window-system\n\nThe following commands are accepted by the server:\n\n`-auth AUTH-STRING'\n Authenticate the client using the secret authentication string\n AUTH-STRING.\n\n`-env NAME=VALUE'\n An environment variable on the client side.\n\n`-dir DIRNAME'\n The current working directory of the client process.\n\n`-current-frame'\n Forbid the creation of new frames.\n\n`-frame-parameters ALIST'\n Set the parameters of the created frame.\n\n`-nowait'\n Request that the next frame created should not be\n associated with this client.\n\n`-display DISPLAY'\n Set the display name to open X frames on.\n\n`-position LINE[:COLUMN]'\n Go to the given line and column number\n in the next file opened.\n\n`-file FILENAME'\n Load the given file in the current frame.\n\n`-eval EXPR'\n Evaluate EXPR as a Lisp expression and return the\n result in -print commands.\n\n`-window-system'\n Open a new X frame.\n\n`-tty DEVICENAME TYPE'\n Open a new tty frame at the client.\n\n`-suspend'\n Suspend this tty frame. The client sends this string in\n response to SIGTSTP and SIGTTOU. The server must cease all I/O\n on this tty until it gets a -resume command.\n\n`-resume'\n Resume this tty frame. The client sends this string when it\n gets the SIGCONT signal and it is the foreground process on its\n controlling tty.\n\n`-ignore COMMENT'\n Do nothing, but put the comment in the server log.\n Useful for debugging.\n\n\nThe following commands are accepted by the client:\n\n`-emacs-pid PID'\n Describes the process id of the Emacs process;\n used to forward window change signals to it.\n\n`-window-system-unsupported'\n Signals that the server does not support creating X frames;\n the client must try again with a tty frame.\n\n`-print STRING'\n Print STRING on stdout. Used to send values\n returned by -eval.\n\n`-print-nonl STRING'\n Print STRING on stdout. Used to continue a\n preceding -print command that would be too big to send\n in a single message.\n\n`-error DESCRIPTION'\n Signal an error and delete process PROC.\n\n`-suspend'\n Suspend this terminal, i.e., stop the client process.\n Sent when the user presses C-z." (catch (quote --cl-block-server-process-filter--) (server-log (concat "Received " string) proc) (if (process-get proc :authenticated) nil (if (and (string-match "-auth \\([!-~]+\\)\n?" string) (equal (match-string 1 string) (process-get proc :auth-key))) (progn (setq string (substring string (match-end 0))) (process-put proc :authenticated t) (server-log "Authentication successful" proc)) (server-log "Authentication failed" proc) (server-send-string proc (concat "-error " (server-quote-arg "Authentication failed"))) (sit-for 1) (delete-process proc) (throw (quote --cl-block-server-process-filter--) nil))) (let ((prev (process-get proc (quote previous-string)))) (if prev (progn (setq string (concat prev string)) (process-put proc (quote previous-string) nil)))) (condition-case err (progn (server-add-client proc) (server-send-string proc (concat "-emacs-pid " (number-to-string (emacs-pid)) "\n")) (if (not (string-match "\n" string)) (if (> (length string) 0) (progn (process-put proc ... string))) (progn (or (eq ... ...) (cl--assertion-failed ...)) nil) (let ((request ...) (coding-system ...) nowait frame display parent-id dontkill commands dir use-current-frame frame-parameters tty-name tty-type files filepos args-left) (setq string (substring string ...)) (setq args-left (mapcar ... ...)) (while args-left (let* ... ...)) (and nowait (not ...) (or files commands) (setq use-current-frame t)) (setq frame (cond ... ... ...)) (process-put proc (quote continuation) (function ...)) (if (or frame files) (progn ...)) (server-execute-continuation proc)))) (error (server-return-error proc err))))) #> "-auth CeLJjxqPh;g)}c&lFS%D/n\\H~I8? -dir /home/liveuser/ -current-frame -tty /dev/pts/1 xterm-256color -file file.txt \n") apply(ad-Advice-server-process-filter (closure (t) (proc string) "Process a request from the server to edit some files.\nPROC is the server process. STRING consists of a sequence of\ncommands prefixed by a dash. Some commands have arguments;\nthese are &-quoted and need to be decoded by `server-unquote-arg'.\nThe filter parses and executes these commands.\n\nTo illustrate the protocol, here is an example command that\nemacsclient sends to create a new X frame (note that the whole\nsequence is sent on a single line):\n\n -env HOME=/home/lorentey\n -env DISPLAY=:0.0\n ... lots of other -env commands\n -display :0.0\n -window-system\n\nThe following commands are accepted by the server:\n\n`-auth AUTH-STRING'\n Authenticate the client using the secret authentication string\n AUTH-STRING.\n\n`-env NAME=VALUE'\n An environment variable on the client side.\n\n`-dir DIRNAME'\n The current working directory of the client process.\n\n`-current-frame'\n Forbid the creation of new frames.\n\n`-frame-parameters ALIST'\n Set the parameters of the created frame.\n\n`-nowait'\n Request that the next frame created should not be\n associated with this client.\n\n`-display DISPLAY'\n Set the display name to open X frames on.\n\n`-position LINE[:COLUMN]'\n Go to the given line and column number\n in the next file opened.\n\n`-file FILENAME'\n Load the given file in the current frame.\n\n`-eval EXPR'\n Evaluate EXPR as a Lisp expression and return the\n result in -print commands.\n\n`-window-system'\n Open a new X frame.\n\n`-tty DEVICENAME TYPE'\n Open a new tty frame at the client.\n\n`-suspend'\n Suspend this tty frame. The client sends this string in\n response to SIGTSTP and SIGTTOU. The server must cease all I/O\n on this tty until it gets a -resume command.\n\n`-resume'\n Resume this tty frame. The client sends this string when it\n gets the SIGCONT signal and it is the foreground process on its\n controlling tty.\n\n`-ignore COMMENT'\n Do nothing, but put the comment in the server log.\n Useful for debugging.\n\n\nThe following commands are accepted by the client:\n\n`-emacs-pid PID'\n Describes the process id of the Emacs process;\n used to forward window change signals to it.\n\n`-window-system-unsupported'\n Signals that the server does not support creating X frames;\n the client must try again with a tty frame.\n\n`-print STRING'\n Print STRING on stdout. Used to send values\n returned by -eval.\n\n`-print-nonl STRING'\n Print STRING on stdout. Used to continue a\n preceding -print command that would be too big to send\n in a single message.\n\n`-error DESCRIPTION'\n Signal an error and delete process PROC.\n\n`-suspend'\n Suspend this terminal, i.e., stop the client process.\n Sent when the user presses C-z." (catch (quote --cl-block-server-process-filter--) (server-log (concat "Received " string) proc) (if (process-get proc :authenticated) nil (if (and (string-match "-auth \\([!-~]+\\)\n?" string) (equal (match-string 1 string) (process-get proc :auth-key))) (progn (setq string (substring string (match-end 0))) (process-put proc :authenticated t) (server-log "Authentication successful" proc)) (server-log "Authentication failed" proc) (server-send-string proc (concat "-error " (server-quote-arg "Authentication failed"))) (sit-for 1) (delete-process proc) (throw (quote --cl-block-server-process-filter--) nil))) (let ((prev (process-get proc (quote previous-string)))) (if prev (progn (setq string (concat prev string)) (process-put proc (quote previous-string) nil)))) (condition-case err (progn (server-add-client proc) (server-send-string proc (concat "-emacs-pid " (number-to-string (emacs-pid)) "\n")) (if (not (string-match "\n" string)) (if (> (length string) 0) (progn (process-put proc ... string))) (progn (or (eq ... ...) (cl--assertion-failed ...)) nil) (let ((request ...) (coding-system ...) nowait frame display parent-id dontkill commands dir use-current-frame frame-parameters tty-name tty-type files filepos args-left) (setq string (substring string ...)) (setq args-left (mapcar ... ...)) (while args-left (let* ... ...)) (and nowait (not ...) (or files commands) (setq use-current-frame t)) (setq frame (cond ... ... ...)) (process-put proc (quote continuation) (function ...)) (if (or frame files) (progn ...)) (server-execute-continuation proc)))) (error (server-return-error proc err))))) (#> "-auth CeLJjxqPh;g)}c&lFS%D/n\\H~I8? -dir /home/liveuser/ -current-frame -tty /dev/pts/1 xterm-256color -file file.txt \n")) server-process-filter(#> "-auth CeLJjxqPh;g)}c&lFS%D/n\\H~I8? -dir /home/liveuser/ -current-frame -tty /dev/pts/1 xterm-256color -file file.txt \n")