comparison lisp/server.el @ 49686:64195811ff44

(server-previous-strings): Remove. (server-process-filter): Use (process-get 'previous-string) instead. (server-sentinel): Remove code made superfluous.

49685:c205b3bd7372

  :group 'server
  :type 'hook)

(defvar server-process nil
  "The current server process.")

(defvar server-previous-strings nil)

(defvar server-clients nil
  "List of current server clients.
Each element is (CLIENTID BUFFERS...) where CLIENTID is a string
that can be given to the server process to identify a client.

		(if client (format " %s:" client) " ")
		string)
	(or (bolp) (newline)))))

(defun server-sentinel (proc msg)
  ;; Purge server-previous-strings of the now irrelevant entry.
  (setq server-previous-strings
	(delq (assq proc server-previous-strings) server-previous-strings))
  (let ((client (assq proc server-clients)))
    ;; Remove PROC from the list of clients.
    (when client
      (setq server-clients (delq client server-clients))
      (dolist (buf (cdr client))


(defun server-process-filter (proc string)
  "Process a request from the server to edit some files.
PROC is the server process.  Format of STRING is \"PATH PATH PATH... \\n\"."
  (server-log string proc)
  (let ((ps (assq proc server-previous-strings)))
    (when (cdr ps)
      (setq string (concat (cdr ps) string))
      (setcdr ps nil)))
  ;; If the input is multiple lines,
  ;; process each line individually.
  (while (string-match "\n" string)
    (let ((request (substring string 0 (match-beginning 0)))
	  (coding-system (and default-enable-multibyte-characters

	  (unless nowait
	    (message (substitute-command-keys
		      "When done with a buffer, type \\[server-edit]")))))))
  ;; Save for later any partial line that remains.
  (when (> (length string) 0)
    (let ((ps (assq proc server-previous-strings)))
      (if ps (setcdr ps string)
	(push (cons proc string) server-previous-strings)))))

(defun server-goto-line-column (file-line-col)
  (goto-line (nth 1 file-line-col))
  (let ((column-number (nth 2 file-line-col)))
    (if (> column-number 0)

49686:64195811ff44

  :group 'server
  :type 'hook)

(defvar server-process nil
  "The current server process.")

(defvar server-clients nil
  "List of current server clients.
Each element is (CLIENTID BUFFERS...) where CLIENTID is a string
that can be given to the server process to identify a client.

		(if client (format " %s:" client) " ")
		string)
	(or (bolp) (newline)))))

(defun server-sentinel (proc msg)
  (let ((client (assq proc server-clients)))
    ;; Remove PROC from the list of clients.
    (when client
      (setq server-clients (delq client server-clients))
      (dolist (buf (cdr client))


(defun server-process-filter (proc string)
  "Process a request from the server to edit some files.
PROC is the server process.  Format of STRING is \"PATH PATH PATH... \\n\"."
  (server-log string proc)
  (let ((prev (process-get proc 'previous-string)))
    (when prev
      (setq string (concat prev string))
      (process-put proc 'previous-string nil)))
  ;; If the input is multiple lines,
  ;; process each line individually.
  (while (string-match "\n" string)
    (let ((request (substring string 0 (match-beginning 0)))
	  (coding-system (and default-enable-multibyte-characters

	  (unless nowait
	    (message (substitute-command-keys
		      "When done with a buffer, type \\[server-edit]")))))))
  ;; Save for later any partial line that remains.
  (when (> (length string) 0)
    (process-put proc 'previous-string string)))

(defun server-goto-line-column (file-line-col)
  (goto-line (nth 1 file-line-col))
  (let ((column-number (nth 2 file-line-col)))
    (if (> column-number 0)