(tq-process-buffer): Fix error format string.

diff --git a/lisp/emacs-lisp/tq.el b/lisp/emacs-lisp/tq.el
index 696952483becfc445ac8ddd4061798ca7a8908fd..8654e76fd59b2b4dc8740a587837760c72c56705 100644 (file)
--- a/lisp/emacs-lisp/tq.el
+++ b/lisp/emacs-lisp/tq.el
@@ -101,9 +101,9 @@ that's how we tell where the answer ends."
          (copy-to-buffer buf (point-min) (point-max))
          (delete-region (point-min) (point))
          (pop-to-buffer buf nil)
-         (error (concat "Spurious communication from process "
-                        (process-name (tq-process tq))
-                        ", see buffer " (buffer-name buf) ".")))
+         (error "Spurious communication from process %s, see buffer %s"
+                (process-name (tq-process tq))
+                (buffer-name buf)))
       (goto-char (point-min))
       (if (re-search-forward (tq-queue-head-regexp tq) nil t)
          (let ((answer (buffer-substring (point-min) (point))))