Mercurial > emacs

changeset 14430:408eeedc18cd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tq-process-buffer): Fix error format string.
author Karl Heuer <kwzh@gnu.org>
date Mon, 29 Jan 1996 23:18:47 +0000
parents da2b8c03799f
children d1b9ec5dc9fc
files lisp/emacs-lisp/tq.el
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emacs-lisp/tq.el	Mon Jan 29 23:18:35 1996 +0000
+++ b/lisp/emacs-lisp/tq.el	Mon Jan 29 23:18:47 1996 +0000
@@ -101,9 +101,9 @@
 	  (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))))