# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 822531414 0
# Node ID 0df217c5842d464f7ae066dbbd243aa25ceb50b3
# Parent  e5799768c51b6e0138406c2fef3ea4a203614aa4
(server-process-filter): Pass proper format string to message.

diff -r e5799768c51b -r 0df217c5842d lisp/server.el
--- a/lisp/server.el	Thu Jan 25 00:56:48 1996 +0000
+++ b/lisp/server.el	Thu Jan 25 00:56:54 1996 +0000
@@ -191,7 +191,7 @@
       ;; Remove this line from STRING.
       (setq string (substring string (match-end 0)))	  
       (if (string-match "^Error: " request)
-	  (message (concat "Server error: " (substring request (match-end 0))))
+	  (message "Server error: %s" (substring request (match-end 0)))
 	(if (string-match "^Client: " request)
 	    (progn
 	      (setq request (substring request (match-end 0)))