Mercurial > emacs
changeset 12058:24c19691068e
Don't go forward over a word-char if we're at bob, and set match-data.
| author | Simon Marshall <simon@gnu.org> |
|---|---|
| date | Fri, 02 Jun 1995 07:42:12 +0000 |
| parents | 562d3062b82e |
| children | b6f64c954ce9 |
| files | lisp/comint.el |
| diffstat | 1 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/comint.el Fri Jun 02 01:03:43 1995 +0000 +++ b/lisp/comint.el Fri Jun 02 07:42:12 1995 +0000 @@ -1848,10 +1848,15 @@ (let ((non-word-chars (concat "[^\\\\" word-chars "]")) (here (point))) (while (and (re-search-backward non-word-chars nil 'move) ;(memq (char-after (point)) shell-file-name-quote-list) - (not (bolp)) (eq (char-after (1- (point))) ?\\)) + (eq (preceding-char) ?\\)) (backward-char 1)) - (forward-char 1) - (and (< (point) here) (buffer-substring (point) here))))) + ;; Don't go forward over a word-char (this can happen if we're at bob). + (if (or (not (bobp)) (looking-at non-word-chars)) + (forward-char 1)) + ;; Set match-data to match the entire string. + (if (< (point) here) + (progn (store-match-data (list (point) here)) + (match-string 0)))))) (defun comint-match-partial-filename ()