From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 10 Jan 1996 00:16:02 +0000 (+0000)
Subject: (ange-ftp-name-format): Don't match "/:" or "/.:".
X-Git-Tag: emacs-19.34~1722
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=bc31a60a7cc2a896561add7adc42ec7478c7d3ad;p=emacs.git

(ange-ftp-name-format): Don't match "/:" or "/.:".
---

diff --git a/lisp/ange-ftp.el b/lisp/ange-ftp.el
index 2b79cf5757a..b4ea56267d2 100644
--- a/lisp/ange-ftp.el
+++ b/lisp/ange-ftp.el
@@ -625,7 +625,7 @@
 ;;;; ------------------------------------------------------------
 
 (defvar ange-ftp-name-format
-  '("^/\\(\\([^@/:]*\\)@\\)?\\([^@/:]*\\):\\(.*\\)" . (3 2 4))
+  '("^/\\(\\([^@/:]*\\)@\\)?\\([^@/:]*[^@/:.]\\):\\(.*\\)" . (3 2 4))
   "*Format of a fully expanded remote file name.
 This is a list of the form \(REGEXP HOST USER NAME\),
 where REGEXP is a regular expression matching