Commit 76b17c0b authored by Karl Heuer's avatar Karl Heuer
Browse files

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

parent 81291a47
......@@ -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))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment