diff options
| -rw-r--r-- | lisp/emacs-lisp/tq.el | 6 |
1 files 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." | |||
| 101 | (copy-to-buffer buf (point-min) (point-max)) | 101 | (copy-to-buffer buf (point-min) (point-max)) |
| 102 | (delete-region (point-min) (point)) | 102 | (delete-region (point-min) (point)) |
| 103 | (pop-to-buffer buf nil) | 103 | (pop-to-buffer buf nil) |
| 104 | (error (concat "Spurious communication from process " | 104 | (error "Spurious communication from process %s, see buffer %s" |
| 105 | (process-name (tq-process tq)) | 105 | (process-name (tq-process tq)) |
| 106 | ", see buffer " (buffer-name buf) "."))) | 106 | (buffer-name buf))) |
| 107 | (goto-char (point-min)) | 107 | (goto-char (point-min)) |
| 108 | (if (re-search-forward (tq-queue-head-regexp tq) nil t) | 108 | (if (re-search-forward (tq-queue-head-regexp tq) nil t) |
| 109 | (let ((answer (buffer-substring (point-min) (point)))) | 109 | (let ((answer (buffer-substring (point-min) (point)))) |