diff options
| author | Gerd Moellmann | 2001-01-11 15:39:27 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-01-11 15:39:27 +0000 |
| commit | bec04ade3a121c2707d34e04bd7213e59025d2cc (patch) | |
| tree | 72c76cc7de5f0cbcb624d303af7d669a0979082d | |
| parent | c5348233d2efc2cf1a4d5d1afa9287a46c43c795 (diff) | |
| download | emacs-bec04ade3a121c2707d34e04bd7213e59025d2cc.tar.gz emacs-bec04ade3a121c2707d34e04bd7213e59025d2cc.zip | |
(comint-goto-process-mark): Don't print a message
when running in batch mode.
| -rw-r--r-- | lisp/comint.el | 3 |
1 files changed, 2 insertions, 1 deletions
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." | |||
| 2703 | (let ((proc (or (get-buffer-process (current-buffer)) | 2703 | (let ((proc (or (get-buffer-process (current-buffer)) |
| 2704 | (error "Current buffer has no process")))) | 2704 | (error "Current buffer has no process")))) |
| 2705 | (goto-char (process-mark proc)) | 2705 | (goto-char (process-mark proc)) |
| 2706 | (message "Point is now at the process mark"))) | 2706 | (when (interactive-p) |
| 2707 | (message "Point is now at the process mark")))) | ||
| 2707 | 2708 | ||
| 2708 | (defun comint-bol-or-process-mark () | 2709 | (defun comint-bol-or-process-mark () |
| 2709 | "Move point to beginning of line (after prompt) or to the process mark. | 2710 | "Move point to beginning of line (after prompt) or to the process mark. |