Don't go forward over a word-char if we're at bob, and set match-data.

1 files changed, 8 insertions, 3 deletions

diff --git a/lisp/comint.el b/lisp/comint.el
index de0d63a50db..6897ae6511d 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1848,10 +1848,15 @@ inside of a \"[...]\" (see `skip-chars-forward')."
     (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 ()