procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Simon Marshall 1995-06-02 07:42:12 +00:00
parent 04486a2df2
commit 4288965cef
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
lisp/comint.el
View file

@ -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 ()