diff options
| author | Karl Heuer | 1996-01-25 00:56:54 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-01-25 00:56:54 +0000 |
| commit | 26544100fa650d01438291943b9e1c1e46258aab (patch) | |
| tree | 63c035dbade93bca89f734daec13452dd11675ba | |
| parent | e26a12ac8c4b072d7821ef075f662cde4f74f459 (diff) | |
| download | emacs-26544100fa650d01438291943b9e1c1e46258aab.tar.gz emacs-26544100fa650d01438291943b9e1c1e46258aab.zip | |
(server-process-filter): Pass proper format string to message.
| -rw-r--r-- | lisp/server.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/server.el b/lisp/server.el index ccd20026c97..5dc51cb7e39 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -191,7 +191,7 @@ Prefix arg means just kill any existing server communications subprocess." | |||
| 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))) |