unofficial mirror of bug-gnu-emacs@gnu.org 
 help / color / mirror / code / Atom feed
From: Live System User <nyc4bos@aol.com>
To: npostavs@users.sourceforge.net
Cc: 26310@debbugs.gnu.org
Subject: bug#26310: 25.1; Emacsclient to emacs --daemon frame/connection error
Date: Fri, 31 Mar 2017 03:51:11 -0400	[thread overview]
Message-ID: <87lgrl7ukw.fsf@aol.com> (raw)
In-Reply-To: <87vaqq1bk0.fsf@users.sourceforge.net> (npostavs@users.sourceforge.net's message of "Thu, 30 Mar 2017 21:26:23 -0400")

[-- Attachment #1: Type: text/plain, Size: 599 bytes --]

npostavs@users.sourceforge.net writes:

> Live System User <nyc4bos@aol.com> writes:
>
>>     What is the cause of the "stringp" error and why doesn't
>>     "debug-on-error" give further diagnostics on its cause?
>>     The " *server*" buffer logging information appears to show
>>     the correct passing of the protocol parameters so what is
>>     the argument(s) that the Emacs server belives is nil or
>>     missing?
>
> The error happens inside a condition-case, so the debugger is not
> invoked.  Can you try setting debug-on-signal?

  Here is the backtrace, as an attachment.

  Thanks.


[-- Attachment #2: emacsclient debug-on-signal --]
[-- Type: text/plain, Size: 27201 bytes --]

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(#<process server <127.0.0.1:51916>>)
  (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)))))(#<process server <127.0.0.1:51916>> "-auth CeLJjxqPh;g)}c&lFS%D/n<X!18j6o%s{`3%-&=k1loW-aoAa(!otMOTY>\\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))))) #<process server <127.0.0.1:51916>> "-auth CeLJjxqPh;g)}c&lFS%D/n<X!18j6o%s{`3%-&=k1loW-aoAa(!otMOTY>\\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))))) (#<process server <127.0.0.1:51916>> "-auth CeLJjxqPh;g)}c&lFS%D/n<X!18j6o%s{`3%-&=k1loW-aoAa(!otMOTY>\\H~I8? -dir /home/liveuser/ -current-frame -tty /dev/pts/1 xterm-256color -file file.txt \n"))
  server-process-filter(#<process server <127.0.0.1:51916>> "-auth CeLJjxqPh;g)}c&lFS%D/n<X!18j6o%s{`3%-&=k1loW-aoAa(!otMOTY>\\H~I8? -dir /home/liveuser/ -current-frame -tty /dev/pts/1 xterm-256color -file file.txt \n")

  reply	other threads:[~2017-03-31  7:51 UTC|newest]

Thread overview: 6+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2017-03-30 14:31 bug#26310: 25.1; Emacsclient to emacs --daemon frame/connection error Live System User
2017-03-31  1:26 ` npostavs
2017-03-31  7:51   ` Live System User [this message]
2017-04-01  3:50     ` npostavs
2017-04-15  3:24       ` uLive System User
2017-04-15 14:29         ` npostavs

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.gnu.org/software/emacs/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=87lgrl7ukw.fsf@aol.com \
    --to=nyc4bos@aol.com \
    --cc=26310@debbugs.gnu.org \
    --cc=npostavs@users.sourceforge.net \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).