diff options
| author | Karl Heuer | 1995-05-15 21:53:39 +0000 |
|---|---|---|
| committer | Karl Heuer | 1995-05-15 21:53:39 +0000 |
| commit | 76b17c0b664daf4f941ec3a4d45e7c3e92d3003d (patch) | |
| tree | eb763f93a024f89aa1c970cdd568535439c9fd25 | |
| parent | 81291a475d2e4a54c7bb9199811e3ddd5b267a6b (diff) | |
| download | emacs-76b17c0b664daf4f941ec3a4d45e7c3e92d3003d.tar.gz emacs-76b17c0b664daf4f941ec3a4d45e7c3e92d3003d.zip | |
(tq-process-buffer): Don't hard-code the buffer name.
| -rw-r--r-- | lisp/emacs-lisp/tq.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/tq.el b/lisp/emacs-lisp/tq.el index 043d057a744..5dc77a36f6c 100644 --- 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." | |||
| 102 | (pop-to-buffer buf nil) | 102 | (pop-to-buffer buf nil) |
| 103 | (error (concat "Spurious communication from process " | 103 | (error (concat "Spurious communication from process " |
| 104 | (process-name (tq-process tq)) | 104 | (process-name (tq-process tq)) |
| 105 | ", see buffer *spurious*."))) | 105 | ", see buffer " (buffer-name buf) "."))) |
| 106 | (goto-char (point-min)) | 106 | (goto-char (point-min)) |
| 107 | (if (re-search-forward (tq-queue-head-regexp tq) nil t) | 107 | (if (re-search-forward (tq-queue-head-regexp tq) nil t) |
| 108 | (let ((answer (buffer-substring (point-min) (point)))) | 108 | (let ((answer (buffer-substring (point-min) (point)))) |