diff --git a/lisp/emacs-lisp/tq.el b/lisp/emacs-lisp/tq.el
index a7bfd3ac667..1ee6a12c5cf 100644
--- a/lisp/emacs-lisp/tq.el
+++ b/lisp/emacs-lisp/tq.el
@@ -85,6 +85,7 @@ to a tcp server on another machine."
 			    (generate-new-buffer
 			     (concat " tq-temp-"
 				     (process-name process)))))))
+    (buffer-disable-undo (tq-buffer tq))
     (set-process-filter process
 			`(lambda (proc string)
 			   (tq-filter ',tq string)))