From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 11 Jan 2001 15:39:27 +0000 (+0000)
Subject: (comint-goto-process-mark): Don't print a message
X-Git-Tag: emacs-pretest-21.0.96~349
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bec04ade3a121c2707d34e04bd7213e59025d2cc;p=emacs.git

(comint-goto-process-mark): Don't print a message
when running in batch mode.
---

diff --git a/lisp/comint.el b/lisp/comint.el
index dbe75edbf63..72e536c0d08 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -2703,7 +2703,8 @@ from input that has not yet been sent."
   (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.