From: Karl Heuer <kwzh@gnu.org>
Date: Mon, 29 Jan 1996 23:18:47 +0000 (+0000)
Subject: (tq-process-buffer): Fix error format string.
X-Git-Tag: emacs-19.34~1430
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e8a74167d7d499bfb4b8ee381e2f0643a09c6bf9;p=emacs.git

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

diff --git a/lisp/emacs-lisp/tq.el b/lisp/emacs-lisp/tq.el
index 696952483be..8654e76fd59 100644
--- 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))))