diff options
| -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.") | |||
| 1741 | "Return the filename at point, or signal an error. | 1741 | "Return the filename at point, or signal an error. |
| 1742 | Environment variables are substituted." | 1742 | Environment variables are substituted." |
| 1743 | (save-excursion | 1743 | (save-excursion |
| 1744 | (if (re-search-backward "[^~/A-Za-z0-9_.$#,={}()-]" nil 'move) | 1744 | (if (re-search-backward "[^~/A-Za-z0-9+@:_.$#,={}-]" nil 'move) |
| 1745 | (forward-char 1)) | 1745 | (forward-char 1)) |
| 1746 | ;; Anchor the search forwards. | 1746 | ;; Anchor the search forwards. |
| 1747 | (if (not (looking-at "[~/A-Za-z0-9_.$#,={}()-]")) (error "")) | 1747 | (if (not (looking-at "[~/A-Za-z0-9+@:_.$#,={}-]")) (error "")) |
| 1748 | (re-search-forward "[~/A-Za-z0-9_.$#,={}()-]+") | 1748 | (re-search-forward "[~/A-Za-z0-9+@:_.$#,={}-]+") |
| 1749 | (substitute-in-file-name | 1749 | (substitute-in-file-name |
| 1750 | (buffer-substring (match-beginning 0) (match-end 0))))) | 1750 | (buffer-substring (match-beginning 0) (match-end 0))))) |
| 1751 | 1751 | ||