Mercurial > emacs
changeset 35236:ebc45a028f0f
(comint-goto-process-mark): Don't print a message
when running in batch mode.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Thu, 11 Jan 2001 15:39:27 +0000 |
| parents | 0623eaa00b2b |
| children | 387dc44657f0 |
| files | lisp/comint.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.