diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-11-13 00:02:20 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-11-13 00:02:20 +0000 |
| commit | ebb93dade63af8d1ed246bd0eeb78e938a9025a8 (patch) | |
| tree | dee06f6e5b24e8698f4a04318beb57840300b3a4 /lisp/comint.el | |
| parent | fe6854a606886b3425aa952f27ee574bb368322d (diff) | |
| download | emacs-ebb93dade63af8d1ed246bd0eeb78e938a9025a8.tar.gz | |
(comint-match-partial-filename): Consider +@: part of
filenames; don't consider parens as part of them.
Diffstat (limited to 'lisp/comint.el')
| -rw-r--r-- | lisp/comint.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/comint.el b/lisp/comint.el index 6ac896fbbc1..81e48cd209a 100644 --- a/lisp/comint.el +++ b/lisp/comint.el @@ -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))))) |