# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 979227567 0
# Node ID ebc45a028f0f4b4497fba9e70b368a393fbbece7
# Parent  0623eaa00b2b3797dd10b5f0163042460b3f0991
(comint-goto-process-mark): Don't print a message
when running in batch mode.

diff -r 0623eaa00b2b -r ebc45a028f0f lisp/comint.el
--- a/lisp/comint.el	Thu Jan 11 15:31:12 2001 +0000
+++ b/lisp/comint.el	Thu Jan 11 15:39:27 2001 +0000
@@ -2703,7 +2703,8 @@
   (let ((proc (or (get-buffer-process (current-buffer))
 		  (error "Current buffer has no process"))))
     (goto-char (process-mark proc))
-    (message "Point is now at the process mark")))
+    (when (interactive-p)
+      (message "Point is now at the process mark"))))
 
 (defun comint-bol-or-process-mark ()
   "Move point to beginning of line (after prompt) or to the process mark.