(comint-replace-by-expanded-history-before-point): Fix

change of 2000-08-03 to move point to the start of the line again.
2001-01-24 16:21:56 +00:00
parent 1e54671434
commit 7e4f9cf463
1 changed files with 1 additions and 0 deletions
--- 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)))