From 7e4f9cf463118b23a52d1e006f40a692b287c0e1 Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 24 Jan 2001 16:21:56 +0000 Subject: [PATCH] (comint-replace-by-expanded-history-before-point): Fix change of 2000-08-03 to move point to the start of the line again. --- lisp/comint.el | 1 + 1 file changed, 1 insertion(+) 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))) -- 2.39.2