# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 980353316 0
# Node ID e25ec5ecc3f59350f06e81c24311d03bc218f376
# Parent  0fbf1517a67063d33b5789051077ed7a4387b049
(comint-replace-by-expanded-history-before-point): Fix
change of 2000-08-03 to move point to the start of the line again.

diff -r 0fbf1517a670 -r e25ec5ecc3f5 lisp/comint.el
--- a/lisp/comint.el	Wed Jan 24 16:10:06 2001 +0000
+++ b/lisp/comint.el	Wed Jan 24 16:21:56 2001 +0000
@@ -1136,6 +1136,7 @@
   (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)))