From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 13 Nov 1993 00:02:20 +0000 (+0000)
Subject: (comint-match-partial-filename): Consider +@: part of
X-Git-Tag: emacs-19.34~10858
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1ae2f9fe09dd995be4d9bc2d9c55dea0f6e784be;p=emacs.git

(comint-match-partial-filename): Consider +@: part of
filenames; don't consider parens as part of them.
---

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)))))