(tq-process-buffer): Don't hard-code the buffer name.

diff --git a/lisp/emacs-lisp/tq.el b/lisp/emacs-lisp/tq.el
index 043d057a74432f633c222a4426810d700d71e38b..5dc77a36f6ce5dc9f3984ffe446306efd8728dc4 100644 (file)
--- a/lisp/emacs-lisp/tq.el
+++ b/lisp/emacs-lisp/tq.el
@@ -102,7 +102,7 @@ that's how we tell where the answer ends."
          (pop-to-buffer buf nil)
          (error (concat "Spurious communication from process "
                         (process-name (tq-process tq))
-                        ", see buffer *spurious*.")))
+                        ", see buffer " (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))))