Commit 7e4f9cf4 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

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

change of 2000-08-03 to move point to the start of the line again.
parent 1e546714
...@@ -1136,6 +1136,7 @@ than the logical beginning of line." ...@@ -1136,6 +1136,7 @@ than the logical beginning of line."
(save-excursion (save-excursion
(let ((toend (- (line-end-position) (point))) (let ((toend (- (line-end-position) (point)))
(start (comint-line-beginning-position))) (start (comint-line-beginning-position)))
(goto-char start)
(while (progn (while (progn
(skip-chars-forward "^!^" (- (line-end-position) toend)) (skip-chars-forward "^!^" (- (line-end-position) toend))
(< (point) (- (line-end-position) toend))) (< (point) (- (line-end-position) toend)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment