mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(server-process-filter): Pass proper format string to message.

Browse Source
This commit is contained in:
Karl Heuer 1996-01-25 00:56:54 +00:00
parent e26a12ac8c
commit 26544100fa
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/server.el
View File

@ -191,7 +191,7 @@ Prefix arg means just kill any existing server communications subprocess."
;; 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)))