procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Karl Heuer 1995-05-15 21:53:39 +00:00
parent 81291a475d
commit 76b17c0b66
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/emacs-lisp/tq.el
View file

@ -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))))