From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 10 Feb 2003 21:44:24 +0000 (+0000)
Subject: (server-previous-strings): Remove.
X-Git-Tag: ttn-vms-21-2-B4~11276
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3f7ef08ebd61cfae0c6d7356161bc5a98949b737;p=emacs.git

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

diff --git a/lisp/server.el b/lisp/server.el
index 321a61ed8bd..39c183a3fc5 100644
--- a/lisp/server.el
+++ b/lisp/server.el
@@ -100,8 +100,6 @@
 (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
@@ -179,9 +177,6 @@ are done with it in the server.")
 	(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
@@ -282,10 +277,10 @@ Server mode runs a process that accepts commands from the
   "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)))
+  (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)
@@ -362,9 +357,7 @@ PROC is the server process.  Format of STRING is \"PATH PATH PATH... \\n\"."
 		      "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)))))
+    (process-put proc 'previous-string string)))
 
 (defun server-goto-line-column (file-line-col)
   (goto-line (nth 1 file-line-col))