From e8a74167d7d499bfb4b8ee381e2f0643a09c6bf9 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 29 Jan 1996 23:18:47 +0000 Subject: [PATCH] (tq-process-buffer): Fix error format string. --- lisp/emacs-lisp/tq.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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)))) -- 2.39.2