Mercurial > emacs

comparison lisp/server.el @ 14327:0df217c5842d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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)))