diff options
| author | Karl Heuer | 1996-01-29 23:18:47 +0000 |
|---|---|---|
| committer | Karl Heuer | 1996-01-29 23:18:47 +0000 |
| commit | e8a74167d7d499bfb4b8ee381e2f0643a09c6bf9 (patch) | |
| tree | ed6eb11bbb9d61bcf581ed1d9341d836356d18de | |
| parent | 5fc329f9309fa7cc58f0790fe2e1213f85cebd70 (diff) | |
| download | emacs-e8a74167d7d499bfb4b8ee381e2f0643a09c6bf9.tar.gz emacs-e8a74167d7d499bfb4b8ee381e2f0643a09c6bf9.zip | |
(tq-process-buffer): Fix error format string.
| -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)))) |