From bec04ade3a121c2707d34e04bd7213e59025d2cc Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Thu, 11 Jan 2001 15:39:27 +0000 Subject: [PATCH] (comint-goto-process-mark): Don't print a message when running in batch mode. --- lisp/comint.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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. -- 2.39.5