mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

(comint-match-partial-filename): Consider +@: part of

Browse source 
filenames; don't consider parens as part of them.
This commit is contained in:
Richard M. Stallman 1993-11-13 00:02:20 +00:00
parent 30b786c340
commit 1ae2f9fe09
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/comint.el
View file

@ -1741,11 +1741,11 @@ directory tracking functions.")
"Return the filename at point, or signal an error.
Environment variables are substituted."
(save-excursion
(if (re-search-backward "[^~/A-Za-z0-9_.$#,={}()-]" nil 'move)
(if (re-search-backward "[^~/A-Za-z0-9+@:_.$#,={}-]" nil 'move)
(forward-char 1))
;; Anchor the search forwards.
(if (not (looking-at "[~/A-Za-z0-9_.$#,={}()-]")) (error ""))
(re-search-forward "[~/A-Za-z0-9_.$#,={}()-]+")
(if (not (looking-at "[~/A-Za-z0-9+@:_.$#,={}-]")) (error ""))
(re-search-forward "[~/A-Za-z0-9+@:_.$#,={}-]+")
(substitute-in-file-name
(buffer-substring (match-beginning 0) (match-end 0)))))