diff options
| author | Karl Heuer <kwzh@gnu.org> | 1996-01-29 23:18:47 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1996-01-29 23:18:47 +0000 |
| commit | e8a74167d7d499bfb4b8ee381e2f0643a09c6bf9 (patch) | |
| tree | ed6eb11bbb9d61bcf581ed1d9341d836356d18de /lisp/emacs-lisp/tq.el | |
| parent | 5fc329f9309fa7cc58f0790fe2e1213f85cebd70 (diff) | |
| download | emacs-e8a74167d7d499bfb4b8ee381e2f0643a09c6bf9.tar.gz emacs-e8a74167d7d499bfb4b8ee381e2f0643a09c6bf9.tar.bz2 emacs-e8a74167d7d499bfb4b8ee381e2f0643a09c6bf9.zip | |
(tq-process-buffer): Fix error format string.
Diffstat (limited to 'lisp/emacs-lisp/tq.el')
| -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." (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)))) |