# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 753148940 0
# Node ID a4e67bc41cfa525744c3d3621ba8311f7f1f4ca6
# Parent  8a3293abe1ba353b023c17c79451d9c4205849a3
(comint-match-partial-filename): Consider +@: part of
filenames; don't consider parens as part of them.

diff -r 8a3293abe1ba -r a4e67bc41cfa lisp/comint.el
--- 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)))))