Mercurial > emacs
changeset 4993:a4e67bc41cfa
(comint-match-partial-filename): Consider +@: part of
filenames; don't consider parens as part of them.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 13 Nov 1993 00:02:20 +0000 |
| parents | 8a3293abe1ba |
| children | 4146a65b9f02 |
| files | lisp/comint.el |
| diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/comint.el Fri Nov 12 23:35:39 1993 +0000 +++ b/lisp/comint.el Sat Nov 13 00:02:20 1993 +0000 @@ -1741,11 +1741,11 @@ "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)))))