Mercurial > emacs
comparison lisp/server.el @ 14327:0df217c5842d
(server-process-filter): Pass proper format string to message.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Thu, 25 Jan 1996 00:56:54 +0000 |
parents | 83f275dcd93a |
children | aa3232e9077f |
comparison
equal
deleted
inserted
replaced
14326:e5799768c51b | 14327:0df217c5842d |
---|---|
189 (files nil) | 189 (files nil) |
190 (lineno 1)) | 190 (lineno 1)) |
191 ;; Remove this line from STRING. | 191 ;; Remove this line from STRING. |
192 (setq string (substring string (match-end 0))) | 192 (setq string (substring string (match-end 0))) |
193 (if (string-match "^Error: " request) | 193 (if (string-match "^Error: " request) |
194 (message (concat "Server error: " (substring request (match-end 0)))) | 194 (message "Server error: %s" (substring request (match-end 0))) |
195 (if (string-match "^Client: " request) | 195 (if (string-match "^Client: " request) |
196 (progn | 196 (progn |
197 (setq request (substring request (match-end 0))) | 197 (setq request (substring request (match-end 0))) |
198 (setq client (list (substring request 0 (string-match " " request)))) | 198 (setq client (list (substring request 0 (string-match " " request)))) |
199 (setq request (substring request (match-end 0))) | 199 (setq request (substring request (match-end 0))) |