Mercurial > emacs

comparison lisp/comint.el @ 35514:e25ec5ecc3f5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(comint-replace-by-expanded-history-before-point): Fix change of 2000-08-03 to move point to the start of the line again.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 24 Jan 2001 16:21:56 +0000
parents ebc45a028f0f
children 8e8c4af5a4ae
comparison
equal deleted inserted replaced
35513:0fbf1517a670 35514:e25ec5ecc3f5
1134 start of the text to scan for history references, rather 1134 start of the text to scan for history references, rather
1135 than the logical beginning of line." 1135 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)))
1142 ;; This seems a bit complex. We look for references such as !!, !-num, 1143 ;; This seems a bit complex. We look for references such as !!, !-num,
1143 ;; !foo, !?foo, !{bar}, !?{bar}, ^oh, ^my^, ^god^it, ^never^ends^. 1144 ;; !foo, !?foo, !{bar}, !?{bar}, ^oh, ^my^, ^god^it, ^never^ends^.