diff options
| author | Gerd Moellmann | 2001-01-24 16:21:56 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2001-01-24 16:21:56 +0000 |
| commit | 7e4f9cf463118b23a52d1e006f40a692b287c0e1 (patch) | |
| tree | 7e4add448c64210a1659be89e1105875f5de3624 | |
| parent | 1e54671434073cafe9a6d350234ebbb5171ddef7 (diff) | |
| download | emacs-7e4f9cf463118b23a52d1e006f40a692b287c0e1.tar.gz emacs-7e4f9cf463118b23a52d1e006f40a692b287c0e1.zip | |
(comint-replace-by-expanded-history-before-point): Fix
change of 2000-08-03 to move point to the start of the line again.
| -rw-r--r-- | lisp/comint.el | 1 |
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." | |||
| 1136 | (save-excursion | 1136 | (save-excursion |
| 1137 | (let ((toend (- (line-end-position) (point))) | 1137 | (let ((toend (- (line-end-position) (point))) |
| 1138 | (start (comint-line-beginning-position))) | 1138 | (start (comint-line-beginning-position))) |
| 1139 | (goto-char start) | ||
| 1139 | (while (progn | 1140 | (while (progn |
| 1140 | (skip-chars-forward "^!^" (- (line-end-position) toend)) | 1141 | (skip-chars-forward "^!^" (- (line-end-position) toend)) |
| 1141 | (< (point) (- (line-end-position) toend))) | 1142 | (< (point) (- (line-end-position) toend))) |