1 files changed, 1 insertions, 0 deletions

diff --git a/lisp/comint.el b/lisp/comint.el
index 72e536c0d08..921b567276f 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1136,6 +1136,7 @@ than the logical beginning of line."
   (save-excursion
     (let ((toend (- (line-end-position) (point)))
           (start (comint-line-beginning-position)))
+      (goto-char start)
       (while (progn
                (skip-chars-forward "^!^" (- (line-end-position) toend))
                (< (point) (- (line-end-position) toend)))