mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-24 06:20:43 -08:00
Code Issues Projects Releases Wiki Activity

(tq-process-buffer): Fix error format string.

Browse source
This commit is contained in:
Karl Heuer 1996-01-29 23:18:47 +00:00
parent 5fc329f930
commit e8a74167d7
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

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

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